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

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

好みに合わせて入力ファイル名を追加します。

score 0 · Accepted Answer

$lastLineWasBlank のような変数を追加し、各ループの最後に設定します。

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

そんな感じ。:-)

regex - Perl - 次の行を印刷する

5 に答える 5

Related

Reference