関連するすべてのアクセス権をルートアクセスにまとめたスクリプト

Question

私は大きなデータを持っています。

KEL_1021159,K00001 
KEL_1020176,K00001 
KEL_1018609,K00001 
KEL_1008140,K00006 
KEL_1012058,K00006 
KEL_1018645,K00006 
KEL_1004034,K00006 
KEL_1004235,K00006 

と私は現在このように変換しようとしています。

KEL_1021159,KEL_1020176,KEL_1018609 K00001 
KEL_1008140,KEL_1012058,KEL_1018645,KEL_1004034,KEL_1004235 K00006 

このような目的のための基本的なスクリプトはありますか？

awk -F, ' 
    {a[$2] = a[$2] $1 FS} 
    END { 
     for (key in a) { 
      sub(/,$/, "", a[key]) 
      print a[key], key 
     } 
    } 
' file 

不透明perlのワンライナー：awkを持つ非常に簡単

Answer 1

あなたは行っていない場合は

perl -F, -ane 'push @{$a{$F[1]}},$F[0]}{print join(",",@{$a{$_}})." ".$_ for keys %a' file