使用perl的Tie::File 模块删除文件固定行

使用perl的Tie::File 模块删除文件固定行, 为了说明简单代码中处理的是固定第二行开始的3行长度。下面给出perl代码：

#! /usr/bin/perluse 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 查询文档：