网站服务器建设费用,红铃铛网站建设,友情链接交换源码,wordpress上长缺少临时文件夹使用perl的Tie::File 模块删除文件固定行, 为了说明简单代码中处理的是固定第二行开始的3行长度。下面给出perl代码#xff1a;
#! /usr/bin/perl
use v5.14;
use Tie::File;if (ARGV 0) {say 请输入一个文件名 !!!;exit 1;
}my $filePath $ARGV[0];
tie my ar…使用perl的Tie::File 模块删除文件固定行, 为了说明简单代码中处理的是固定第二行开始的3行长度。下面给出perl代码
#! /usr/bin/perl
use v5.14;
use Tie::File;if (ARGV 0) {say 请输入一个文件名 !!!;exit 1;
}my $filePath $ARGV[0];
tie my arry, Tie::File, $filePath;
# 删除第二行开始的三行内容
# 如果这里的索引值越界, 对文件内容没有影响
splice arry, 1, 3;
这里的处理主要利用了perl的Tie::File 模块把数组和文件绑定然后就可以使用perl的splice函数操作数组从而达到操作文件的目的。对于Tie::File 模块的用法可以使用perldoc Tie::File 查询到详细说明 对于splice函数可以使用 perldoc -f splice 查询文档
