配列の作業について教えて下さい

質問

最近、テキストデータを整理する目的でperl勉強を始めました。perl を始まる前まで、プログラミングについて知識が全然ないので、ご教授よろしくお願い致します。

以下のような大量のデータを持っています。
1 a
1 b
1 c
2 d
2 e
2 f
2 g
3 h
3 i
3 j
3 k
3 l
4 m
4 n

１列目の数字は文のID番号です。２列目単語です。目的は、同じIDを持っている単語対して単語IDを張ることです。例えば、

1 a １
1 b ２
1 c ３
のように同じIDを持っている単語に単語ID 張りたいのです。

よろしくお願い致します。

回答No.1

goku3 · ベストアンサー

いきなりの回答でよろしいでしょうか。
連想配列を二重に使っています。
この部分が分かりにくいかと思いますが、
こんな感じになると思います。
このスクリプトの引数に直接ファイル名を渡すものとします。
use strict;
my %hash = ();
while(<>){
chomp;
# next if(/^\s*$/); もし空白行を飛ばしたいなどの条件があれば、
my($id,$word) = split(/\s+/,$_);
push(@{$hash{$id}},$word);
}
foreach my $id (sort keys(%hash)){
my $n = 0;
foreach my $wd (@{$hash{$id}}){
printf("%d %s %d\n",$id,$wd,++$n);
}
}

お礼

希望の通りでした。速やかのご教授本当に有難うございました。

回答No.2

ORUKA1951

意味不明
1 a 1
1 b 2
1 c 3
2 d 4
2 e 5
2 f 6
2 g 7
3 h 8
3 i 9
3 j 10
3 k 11
3 l 12
4 m 13
4 n 14

なのか

1 a 1
1 b 2
1 c 3
2 d 1
2 e 2
2 f 3
2 g 4
3 h 1
3 i 2
3 j 3
3 k 4
3 l 5
4 m 1
4 n 2