1、單行(大文件處理)：
my $oneline = <$FL> 或
while（$line=<H>）
{ } |
2、讀取全部(小文件處理)：
open (my $in, "path ") or die "open error: $! ";
my @lines = <$in> ; |
3、讀3行(大文件及特殊處理需要)：
open (my $in, "path ") or die "open error: $! ";
my @lines;
push (@lines, scalar <$in> ) for (1..3); |
4、每次按條件讀入三行，并且按照條件輸出兩行。或根據(jù)其他具體要求修改達(dá)到相應(yīng)目的。
while (<TEST>) {
if(index ($_, "=") > -1){
my $position=tell(TEST);
my $keyword_line=$_;
my $line_1=<TEST>;
my $line_2=<TEST>;
# @a=split//,$keyword_line; 比較它們的元素是否相等，一直沒成功
# @b=split//,$line_1; 利用if ($a[0]eq $a[0])來判斷
# @c=split//,$line_2;
if (($line_2)&&(index($line_2, "=")>-1)){ # 或者if ($line_2=~/=/)
print OUTFILE "$_$line_1";
}
if (!($line_2)) { print OUTFILE "$_$line_1"; last; }
seek(TEST, $position, 0);
}
} |
延伸閱讀:
· perl 實現(xiàn)文件操作示例
· perl 實現(xiàn)FTP自動上傳的配置文件
· perl 文件讀寫詳解
· Perl文件句柄（filehandle）使用詳解
· perl檢測文件大小
· perl添加字符串到文件代碼片段
· Perl讀取文本文件的方法
· perl如何打開和顯示文件夾的內(nèi)容
· Perl 從文件中提取字符串
· perl的刪除文件代碼
· Perl 查找文件代碼
· 自動從ftp下載文件（不回顯輸入密碼）
|
