方法1 @lines = <FILE>; while ($line = pop @lines) { # $lineに対する処理を書く } 方法2 @lines = reverse <FILE>; foreach $line (@lines) { # $lineに対する処理を書く } 方法3: Tie::Fileモジュールを使用 use Tie::File; tie(@lines, "Tie::File", $FILENAME, mod</file></file>…

cshのforeach関数のように、ファイル内の全ての単語に対して、任意の処理を行いたい。 splitを使用して、各行を空白文字で分割する。 while (<>) { for $chunk (split) { # $chunkに対する処理を書く } } m//g演算子を使用して、単語を1つずつ取り出す while…

ファイル内の行数をカウントしたい wcコマンドを使用する方法 $cound = `wc -l < $file`; die "wc failed: $?" if $?; chomp($cound); ファイルをオープンして、1行ずつカウントする open(FILE, "<", $file) or die; $count++ while <FILE>; # $countには読み込ん</file>…

ファイル内に2行以上にわたる長い行がある。行末にはその後に継続行が続くことを示すバックスラッシュが付加されている。これらの分割された行を1行に結合したい。 バックスラッシュの付加されていない行に到達するまで、各行を順番に1つずつ連結して行く。 …

読み取りの準備ができたファイルハンドル(selectで検出)から、データ行を読み取りたい。しかし、Perlの通常の操作(readline関数)とselectを一緒に使用することはできない。なぜなら、が余分なデータをバッファリングするのに対して、selectはそのバッファの…

などは入力を待ってブロックしてしまうが、ブロックさせるのではなく、入力が読み取り可能かどうか通知させるようにしたい。これは、パイプ、ソケット、デバイス、他のプログラムなどから読み取りを行う場合に役に立つ。 タイムアウト値を0秒にして、select…

ファイルハンドルから読み取り可能なバイト数を取得したい。 ioctl関数のFIONREADリクエストを使用する。 $size = pack("L", 0); ioctl(FH, $FIONREAD, $size) or die; $seze = unpack("L", $size); # $sizeバイトの読み取りが可能