１日分の.datを読み込ませて cat hoge.dat|perl idcount.pl|sort|uniq|wc #!/usr/bin/perlwhile(){ if ($_=~/ ID:([\w\/\+]+)/){print "ID:$1\n";} }