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

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