５行おきに５行ずつ抽出するには？～教えて下さい。

質問

ファイル内のデータの並び替え処理したく、質問します。
データは、１列目に通し番号、２、３、４列目にデータが入っています（下に例を書きます）。
５行ごとに５つの行のデータをまとめたいのです。
具体的に言うと、「１、６、１１、１６、２１行目」のデータをまとめて１行（タブ切り）に。新しい行には、真ん中の数字「１１」を先頭列に入れたいです。
それをずらしてゆき、「２、７、１２、１７、２１行目」のデータを１行に、、というようにしたいのです。
扱うファイルの行数は、様々です。
これを統計処理を行う予定です。perl初心者ですので、トライした思案策を載せても参考にならないかと思い、０から教えて頂く形になりますが、よろしくお願いします。

1 10 10 10
2 20 20 20
3 30 30 30
4 40 40 40
5 50 50 50
6 10 10 10
7 20 20 20
8 30 30 30
9 40 40 40
10 50 50 50
11 10 10 10
12 20 20 20
13 30 30 30
14 40 40 40
15 50 50 50
16 10 10 10
17 20 20 20
18 30 30 30
19 40 40 40
20 50 50 50
21 10 10 10
22 20 20 20
23 30 30 30
24 40 40 40
25 50 50 50

出来上がりは、
11 10 10 10 10 10 10 10 10 10
12 20 20 20 20 20 20 20 20 20
というようになります。

回答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にして、、という処理でしょうか。勉強になります。
まだ解読出来ていませんが、スキルアップのため、理解しながら使用したいと思いますので、お礼を先に申し上げます。

回答No.1

Tacosan

これは正直何をしたいのかがさっぱりわからないな～.

まず, 「1列目」とか「２、３、４列目」とかがどこなのか分からん. そして, 「扱うファイルの行数は、様々です」という前提で「５行ごとに５つの行のデータをまとめたい」というのがどのような形を期待しているのか不明. 例えば, 元のデータが 68行あるとしたら,結果はどうしたいの?

さらに「新しい行には、真ん中の数字「１１」を先頭列に入れたいです」とあるのですが, この「11」がどこから出てきたのかが分かりませんし, ここに与えられたデータからなぜこの「出来上がり」になるのかも全く理解できない.

補足

確認画面と表テーブルの表示が随分異なり、tab切りが不明瞭でした。それに加え、説明が不十分でした。
表にtab切り(¥t)を入れました。
１列目　¥t ２列目　¥t ３列目　¥t ４列目
1 \t 10 \t 10 \t 10
2 \t 20 \t 20 \t 20
3 \t 30 \t 30 \t 30
4 \t 40 \t 40 \t 40
5 \t 50 \t 50 \t 50
6 \t 10 \t 10 \t 10
7 \t 20 \t 20 \t 20
8 \t 30 \t 30 \t 30
9 \t 40 \t 40 \t 40
10 \t 50 \t 50 \t 50
11 \t 10 \t 10 \t 10
12 \t 20 \t 20 \t 20
13 \t 30 \t 30 \t 30
14 \t 40 \t 40 \t 40
15 \t 50 \t 50 \t 50
16 \t 10 \t 10 \t 10
17 \t 20 \t 20 \t 20
18 \t 30 \t 30 \t 30
19 \t 40 \t 40 \t 40
20 \t 50 \t 50 \t 50
21 \t 10 \t 10 \t 10
22 \t 20 \t 20 \t 20
23 \t 30 \t 30 \t 30
24 \t 40 \t 40 \t 40
25 \t 50 \t 50 \t 50

１行３個のデータが入っており、５行おきに５行分のデータを集めるので、5x3=15個のデータが新しい１行に集められます。
１、６（１＋５）、１１（６＋５）、１６（１１＋５）、２１（１６＋５）行にあるデータを集めた場合、新しい行の先頭列には、集めた行の３番目の数字１１を入れておきたいのです。
６８行までしかない場合は、６４、６５、６６、６７、６８行について処理したら終了したいと思います。
統計のT検定をおこなうための標本を作っています。

結果は、
11 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10 \t 10¥n
12 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20 \t 20¥n
としたいと思います。