2004-05-21 ■ コード なにかをカウントする hoge [regexp] #!/usr/bin/perl$count=0;open(IN,"find . -name '*_*'|"); while(){ chomp $_; $tmp=`nkf $_|grep "$ARGV[0]" |wc`; my($li3,$li,$li2)=split(/\s+/,$tmp); $count+=$li; print $count,"\n"; } close();