一部が重複しているデータのマージ

解決済

質問者：hachibunbunbun
質問日時：2011/10/01 14:18
回答数：2件

こんにちは。
どうやって書いたらいいのかわからなくて質問しました。
皆様のお知恵を拝借できませんでしょうか。

以下のようなデータがあります。

1行目:100円りんご
2行目:100円みかん
3行目:100円バナナ

これを以下のようにマージして一行で出力したいのです。

100円りんご,みかん,ばなな

どうかよろしくお願いします！

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： hanabutako
回答日時：2011/10/01 16:25

例えばこんな感じとか？

use strict;

my %data;

while (<STDIN>) {
my ($key, $value);
$_ =~ s/[\r\n]//;
$key = $value = $_;
$key =~ s/([^ ]+)\s(.*)/\1/;
$value =~ s/([^ ]+)\s(.*)/\2/;
push(@{$data{$key}}, $value);
}

while(my ($key, $value) = each %data) {
print "$key ";
foreach (@{$value}) {
print "$_,";
}
print "\n";
}