使用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 查詢文檔：