2006-01-17 自戒を込めて perl perl -slane 'BEGIN{open F;%H=map{$k=shift@$_;map{$_=>$k}@$_}grep{@$_>1}map{[split" ",$_]}} print map{$H{$_}}@F' -- -F=/tmp/hogehoge たぶん、次ぎ見たときなんのコードか忘れているだろな。。。 ってか、データ小さかないと動かないだろこれ。全部展開するし。。。