Perlでの重複要素カウントについての質問

質問

Perlのデータ処理に関する質問です。

afcb7dc0,"福岡県","天神","福岡県","博多・福岡空港"
09f115fc,"東京都","東急沿線","東京都","東急沿線","東京都","代官山、恵比寿-五反田","東京都","東急沿線","東京都","三田、浜松町-品川","東京都","東急沿線"
3933245b,"東京都","新宿・代々木"
・・・

という形式のCSVファイルがあるときに、これを

afcb7dc0,"福岡県",2,"天神",1,"博多・福岡空港",2
09f115fc,"東京都",6,"東急沿線",4,"代官山、恵比寿-五反田",1,"三田、浜松町-品川",1
3933245b,"東京都",1,"新宿・代々木",1

の形式に変換するにはどうすればいいでしょうか？
ご教授願います。

回答No.2

Tacosan · ベストアンサー

それなら例えば
while (my $line = <>) {
chomp $line;
my ($id, @data) = split /,/, $line;
my %count;
my @item;
for (@data) {
push @item, $_ unless $count{$_}++;
}
print $id;
for (@item) {
print ",$_,$count{$_}";
}
print "\n";
}
とかでどうだろ.

お礼

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

回答No.1

Tacosan

その入力と出力との間にはどのような関係があるのですか?

補足

各行にユニークなID＋重複ありの複数要素があるので、重複をなくして、代わりにその要素の出現回数を追加する形にしたいです。