转：一个在文本文件搜索指定字符串的程序

用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博客 ” ，链接：http://blog.itpub.net/220284/viewspace-1024365/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/220284/viewspace-1024365/