使用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 查询文档: