keima's caprice diary

気付いたことをメモのように綴ります。なるべく義務っぽくならないように気まぐれに記録します。

カンマ区切りの数字が羅列されたファイルを読み込んで、カンマで区切られた要素数を合計して標準出力に表示するPerl

使い方 : 第1引数にカンマ区切りの数字が羅列されたファイルを置いてperl実行!!

uniq-sort-count.pl #!/bin/perl -w
open IN,$ARGV[0];$_=<IN>;close IN;chomp;
%uniq=map{$_=>1}split(/,/);
@_=sort{$a<=>$b}keys %uniq; $num = $#_+1;
print"$num\n";