ファイルの処理について

質問

数百行のテキストファイルを５行づつ取り込んで処理をしたいのですが。。
どうすればいいのでしょうか？
一行づつは可能なんですが。。。
While(<FILEHANDL>){
処理
}
ヘルプ～。。。。

回答No.2

kumoz · ベストアンサー

No1 です。
最後が５行未満になった場合のことを忘れていました。
訂正します。

my @five_lines;
while (<FILEHANDLE>) {
push @five_lines, $_;
unless (eof(FILEHANDLE)) { next if $. % 5; }
# ここで @five_lines を処理する
@five_lines = ();
}

補足

回答ありがとうございます。
すみません。％５の意味がわからないのですが。。

回答No.3

kumoz

% は、剰余演算子です。次の式は、

next if $. % 5;

$. (現在の行番号) を 5 で割った余りを求めているものです。
余りが１から 4 までは真になりますので、次の行を読み込みます。
$. が 5 で割れる数字になると余りが 0 になるので偽になり、@five_lines
に５行読み込んだことになるので、次の処理に移ります。

お礼

ありがとうございます。
助かりました。

回答No.1

kumoz

特殊変数の $. を利用する方法があります。

my @five_lines;
while (<FILEHANDLE) {
push @five_lines, $_;
next if $. % 5;
# ここで @five_lines を処理する
@five_lines = ();
}