[perl]外部ファイルの重複レコードの合計値算出

Question

初歩的な質問ですいません。。

タブ区切りの外部ファイルで重複しているデータを集計した結果を
標準出力で表示するプログラムについて
ご教授頂けないでしょうか。
レコードの第1列目が同一名なら合計するというロジックはおろか、
レコードの集計がまともにできない状況で困っています。

インプットとアウトプットのイメージは以下のような感じです。

▼インプット(外部ファイル)
<data.txt>-------
A a 10
A b 11
B a 4
C c 5
C z 1000

▼アウトプット(標準出力)

A 21
B 4
C 1005

よろしくお願いいたしますm(__)m

Answer 1

nahitoさん

早速のご回答ありがとうございます！

ハッシュを使えばよかったのですね。。
非常に参考になりました！！

Answer 2

I love perl!
ということで，一番簡単な方法はハッシュを使うことです．

#data.txtのオープン
open(FILE, "<data.txt");

#空配列（ハッシュ）の作成
my %data = ();

# FILEの中身があるかぎり繰り返す
while (<FILE>) {
  # tab(\t)でデータを分割
  my @sp = split(/\t/, $_);

  # 1列目の値をキーに，配列の中身を足し算
  $data{$sp[0]} = $data{$sp[0]} + $sp[2];

}

#クローズ
close(FILE);


#表示とか
while ( my ($key, $val) = each %data ) {
  #今回は，$keyに1列目の文字（A,B,C），$valに足し算結果が入ります．
  print "$key : $val\n";
}

1;

↓ 結果

A : 21
C : 1005
B : 4

とりあえず，行いたいこと（加算）は実現しました．
次に，ハッシュのせいで順番がぐっちゃぐちゃになります．
kent-webさん（なつかしい・・・）では，tieをつかえば，入力順にソートされるとのことですが，いかんせん私の環境にはtieが入っていないようです…（ここ数年perlを書いていなかったし…）
なので，強引に…

#data.txtのオープン
open(FILE, "<data.txt");

#空配列（ハッシュ）の作成
my %data = ();

#出現順に並べ替える用の変数
my @sort = ();

# FILEの中身があるかぎり繰り返す
while (<FILE>) {
  # tab(\t)でデータを分割
  my @sp = split(/\t/, $_);

  # 1列目の値をキーに，配列の中身を足し算
  $data{$sp[0]} = $data{$sp[0]} + $sp[2];

  # @sort変数の中に重複がなければ，一列目の文字を追加
  my $flag = 0;
  for (my $v=0; $v<@sort; $v++){
    if ($sort[$v] eq $sp[0]){
      $flag = 1;
      last;
    }
  }

  if ($flag == 0){
    push(@sort, $sp[0]);
  }

}

#クローズ
close(FILE);


#表示とか
for (my $v=0; $v<@sort; $v++){
  print "$sort[$v] : $data{$sort[$v]}\n";
}

1;

A : 21
B : 4
C : 1005

あまりスマートではないですが，こんな感じでいかがでしょうか？