Perl逐行读取应该怎么完成?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (137)

我有一个简单的Perl脚本来逐行读取文件。代码如下。

我想显示两行并退出循环。但不起作用。错误在哪里?

$file='SnPmaster.txt';
open(INFO, $file) or die("Could not open  file.");

$count = 0; 
foreach $line (<INFO>)  {   
    print $line;    
    if ($++counter == 2){
      last;
    }
}
close(INFO);
提问于
用户回答回答于

如果use strict打开了,你会发现这$++foo没有任何意义。

以下是如何做到这一点:

use strict;
use warnings;

my $file = 'SnPmaster.txt';
open my $info, $file or die "Could not open $file: $!";

while( my $line = <$info>)  {   
    print $line;    
    last if $. == 2;
}

close $info;

这利用了$.跟踪当前文件中行号的特殊变量。(见perlvar

如果想使用计数器,使用

my $count = 0;
while( my $line = <$info>)  {   
    print $line;    
    last if ++$count == 2;
}
用户回答回答于

使用这些类型的复杂程序时,最好让Perl生成Perl代码:

$ perl -MO=Deparse -pe'exit if $.>2'

LINE: while (defined($_ = <ARGV>)) {
    exit if $. > 2;
}
continue {
    die "-p destination: $!\n" unless print $_;
}

或者可以简单地从命令行运行它,

$ perl -pe'exit if$.>2' file.txt

扫码关注云+社区

领取腾讯云代金券

年度创作总结 领取年终奖励