ざっくりと各カラムの合計値を出す Perl ワンライナー

ざっくりと各カラムの合計値を出す Perl ワンライナー

ざっくりと各カラムの合計値を出す Perl ワンライナー 2013-08-05-2 [Programming] 全行の列ごとの合計...概要を表示 ざっくりと各カラムの合計値を出す Perl ワンライナー 2013-08-05-2 [Programming] 全行の列ごとの合計値を出すこういう Perl ワンライナー。 perl -F"\s+" -aple 'map{$s[$_]+=$F[$_]}0..$#F;END{print@s}' 以下のように alias して使っています(zsh)。 alias gok='perl -F"\s+" -aple '\''map{$s[$_]+=$F[$_]}0..$#F;END{print@s}'\' 実行例： perl -le 'for(1..100){print int(rand(10))}' | sort -n | uniq -c | gok 7 0 9 1 7 2 9 3 9 4 16 5 9 6 11 7 8 8 15 9 #0,100,45 perl -le 'for(1..100)