連続した行のデータをまとめる方法

質問

• ファイル内の連続した行のデータをまとめる方法について教えてください。
• 行数が様々なファイルにおいて、5行ごとに5つの行のデータをまとめたいです。
• また、まとめた行の先頭列には真ん中の数字を入れたいです。結果は統計処理に利用します。

回答No.2

Tacosan · ベストアンサー

以下効率や「分かりやすさ」は完全に無視.

とりあえず「5行おき」を無視して「5行ずつ」でその処理をすることはできますよね? 例えば
sub collect {
my @lines = @_;
my @data = (split ' ', $lines[2])[0];
for my $l (@lines) {
push @data, (split ' ', $l)[1..3];
}
print join("\t", @data), "\n";
}
で表示できます. あとは, 読み込んだ全データに対してこれを回せばいいので
@lines = <>;
for my $i (20..$#lines) {
collect(@lines[$i-20, $i-15, $i-10, $i-5, $i]);
}
でいけそう.

お礼

ありがとうございます。下手な質問に付き合って頂きありがとうございました。
行をarrayにして、、という処理でしょうか。勉強になります。
まだ解読出来ていませんが、スキルアップのため、理解しながら使用したいと思いますので、お礼を先に申し上げます。