perl打開文件后有很多方式可以對文件進行讀取處理，但是對于新手們來說會不知道如何選擇perl的文件讀取方式，那么我們現(xiàn)在去看看perl讀取文件的處理方式。
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ù)其他具體要求修改達到相應(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讀取文件的處理方式，我們可以根據(jù)文件大小，文件內(nèi)容的特征來選擇處理的方式。
