Perl：whileループ内からファイルに行を印刷するには？

Question

私は非常に基本的なperlスクリプトを持っています。このスクリプトは、検索パターンにマッチした後にテキストファイルの次の行を出力します。作品

@ARGV = <dom_boot.txt>; 
while (<>) { 
    print scalar <> if /name=sacux445/; 
} 

は、しかし、私はむしろSTDOUTにそれを印刷するよりも、さらに使用するために、ファイルへの出力をキャプチャしたいと思います。私はちょうど（ゆっくり）勉強してい ので、これを実行しようとしました：

my $fh; 
my $dom_bootdev = 'dom_bootdev.txt'; 

open ($fh, '>', $dom_bootdev) or die "No such file"; 

@ARGV = <dom_boot.txt>; 
while (<>) { 
    print $fh <> if /name=sacux445/; 
} 

close $fh; 

しかし、私は、構文エラーが発生します。

構文try.plx 19行でエラー、近く "<>"

私はこれを理解するのに苦労しています。私はそれがおそらく非常に簡単なので、どんな助けも高く評価されていると思います。

ありがとう、 ルーク。

Answer 1

Perlパーサーは間接的な表記に問題があることがあります。それを処理するための標準的な方法は、ブロックにハンドルをラップすることです：あなたはscalarを削除してもよろしい

print {$fh} <> if /name=sacux445/; 

ていますか？

Answer 2

単にループ内で次の行をフェッチし、それを印刷し、ラインパターンと一致した場合：

while (<>) { 
    next unless /name=sacux445/; 
    my $next = <>; 
    last unless defined $next; 
    print $fh $next; 
} 

注意を、あなたはダイヤモンド演算子の戻り値をチェックする必要があります。一つは、データを解析するためのステートマシンを使用することを学ぶ必要があります

入力

name=sacux445 (1) 
aaa 
name=sacux445 (2) 
bbb 
name=sacux445 (3) 

出力

aaa 
bbb 

Answer 3

。ステートマシンを使用すると、入力の読み込みをコード内の1つの場所に限定することができます。

ステートマシン私たちにデータが文脈自由であるならば、それだけで正規表現を使用して解析することができた場合

​​

：ステートマシンとしてコードを書き換えます。

データがツリー構造の場合は、単純なステートマシンを使用して解析できます。

複雑な構造の場合、プッシュダウンスタックを備えたステートマシンが少なくとも1つ必要です。スタックは、現在の状態が終了したときにマシンがその状態に戻ることができるように、前の状態を記録します。

最も複雑なデータ構造はXMLです。構文のためのステートマシンとセマンティクスのためのスタックを持つステートマシンが必要です。