regex - Perl - 打印下一行

Question

我是一个新手 Perl 用户，试图尽快完成我的工作，所以我今天可以准时回家 :)

基本上我需要在文本文件中打印下一行空白行。

以下是我到目前为止所拥有的。它可以完美地定位空白行。现在我只需要打印下一行。

    open (FOUT, '>>result.txt');

die "File is not available" unless (@ARGV ==1);

open (FIN, $ARGV[0]) or die "Cannot open $ARGV[0]: $!\n";

@rawData=<FIN>;
$count = 0;

foreach $LineVar (@rawData)
    {
        if($_ = ~/^\s*$/)
        {
            print "blank line \n";
                    #I need something HERE!!

        }
        print "$count \n";
        $count++;
    }
close (FOUT);
close (FIN);

非常感谢:)

score 5 · Accepted Answer

open (FOUT, '>>result.txt');

die "File is not available" unless (@ARGV ==1);

open (FIN, $ARGV[0]) or die "Cannot open $ARGV[0]: $!\n";

$count = 0;

while(<FIN>)
{
    if($_ = ~/^\s*$/)
    {
            print "blank line \n";
            count++;
            <FIN>;
            print $_;

    }
    print "$count \n";
    $count++;
}
close (FOUT);
close (FIN);

不将整个文件读入@rawData 可以节省内存，尤其是在大文件的情况下...
<FIN>作为命令将下一行读入 $_
print ;本身就是print $_;（尽管这次我选择了更明确的变体......

score 2 · Accepted Answer

详细阐述 Ron Savage 的解决方案：

foreach $LineVar (@rawData)
    {
        if ( $lastLineWasBlank ) 
           {
                print $LineVar;
                $lastLineWasBlank = 0;
           }
        if($LineVar  =~ /^\s*$/)
        {
                print "blank line \n";
                    #I need something HERE!!
                $lastLineWasBlank = 1;
        }
        print "$count \n";
        $count++;
    }

score 1 · Accepted Answer

我会这样，但可能还有其他方法可以做到：

for ( my $i = 0 ; $i < @rawData ; $i++ ){
   if ( $rawData[$i] =~ /^\s*$/ ){
       print $rawData[$i + 1] ; ## plus check this is not null
   }
}

J。

score 0 · Accepted Answer

添加一个变量，如 $lastLineWasBlank，并在每个循环结束时设置它。

if ( $lastLineWasBlank ) 
   {
   print "blank line\n" . $LineVar;
   }

类似的东西。:-)

score 0 · Accepted Answer

sh> perl -ne 'if ($b) { print }; if ($b = !/\S/) { ++$c }; END { print $c,"\n" }'

根据您的喜好添加输入文件名。

regex - Perl - 打印下一行

5 回答 5

Related

Reference