亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

perl文件讀取的幾種處理方式小結(jié)

 更新時(shí)間：2013年02月08日 20:14:58   作者：  
perl打開文件后，可以有幾種方式對文件進(jìn)行讀取處理(根據(jù)文件大小，文件內(nèi)容的特征和其它要處理的方式)

1、單行(大文件處理)：

復(fù)制代碼 代碼如下:

my $oneline = <$FL> 或
while（$line=<H>）
{ }

2、讀取全部(小文件處理)：

復(fù)制代碼 代碼如下:

open (my $in, "path ") or die "open error: $! ";
my @lines = <$in> ;

3、讀3行(大文件及特殊處理需要)：

復(fù)制代碼 代碼如下:

open (my $in, "path ") or die "open error: $! ";
my @lines;
push (@lines, scalar <$in> ) for (1..3);

4、每次按條件讀入三行，并且按照條件輸出兩行?；蚋鶕?jù)其他具體要求修改達(dá)到相應(yīng)目的。

復(fù)制代碼 代碼如下:

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);
      }
  }

您可能感興趣的文章:

相關(guān)文章

最新評論