用perl实现的.
[@more@]
print "input file:";
$file=
chomp($file);
open (Hand,$file)||die "can not open file";
print "input the string to search:";
$str=
chomp($str);
print "the result:n";
$i=0;
while (
{
$i++;
while (/$str/g)
{
print "line".$i.": ".$_;
}
}
保存为search.pl
C:>perl search.pl
input file:hello.txt
input the string to search: hello
the result:
line2: this is a hello test.
lien5: helloworld.
这个程序运行特别快.
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/treeroot/archive/2004/10/09/129199.aspx
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/220284/viewspace-1024365/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
转：用Perl实现单词计数器
请登录后发表评论
登录
全部评论
