perl 读取文件

perl中打开文件后可以有几种方式按照你的需要进行读取处理(根据文件大小，文件内容的特征和你要处理的方式)
单行(大文件处理)：

perl

my $oneline =

或

perl

while（$line=）
{     }

读取全部(小文件处理)：

perl

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

读3行(大文件及特殊处理需要)：

perl

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

或每次按条件读入三行，并且按照条件输出两行。或根据其他具体要求修改达到相应目的。

perl

while () {
    if(index ($_, "=") > -1){
       my $position=tell(TEST);
       my $keyword_line=$_;
       my $line_1=<>;
       my $line_2=<>;
    # @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 读取文件

延伸阅读

评论

发表评论