 #!usr/bin/perl if ( $#ARGV<2 ) { print<<"EOF"; 输入参数不够，您输入的格式应该是： perl $0 要搜索的字符串 搜索文档列表 记录文档 EOF exit 0; } $string=shift; $logfile=pop; while(<>){ print "现在处理文档 $ARGV ... n" if ($currentFile ne $ARGV); chomp($_); foreach $word(split(/ /,$_)){ $couter++ if ($word eq $string); } $currentFile=$ARGV; } print "$string 出现的总次数是: $couter "; open(FILE,">>$logfile"); print FILE "#"x30,"n"; print FILE "$string 出现的总次数是: $couter "; close FILE; |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
