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

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

#! /usr/bin/perl
use v5.14;
use Tie::File;

if (@ARGV == 0) {
   
   
	say "请输入一个文件名 !!!";
	exit 1;
}