将所有相关加入整合到其根访问中的脚本
Script to bring together all relevant accession into its root access
我有大数据关注;
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 非常简单:
awk -F, '
{a[] = a[] FS}
END {
for (key in a) {
sub(/,$/, "", a[key])
print a[key], key
}
}
' file
不透明的 perl 一行代码:
perl -F, -ane 'push @{$a{$F[1]}},$F[0]}{print join(",",@{$a{$_}})." ".$_ for keys %a' file
我有大数据关注;
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 非常简单:
awk -F, '
{a[] = a[] FS}
END {
for (key in a) {
sub(/,$/, "", a[key])
print a[key], key
}
}
' file
不透明的 perl 一行代码:
perl -F, -ane 'push @{$a{$F[1]}},$F[0]}{print join(",",@{$a{$_}})." ".$_ for keys %a' file