CSDN博客

img treeroot

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

发表于2004/10/9 12:49:00  1307人阅读

分类: 随想

用perl实现的.
print "input file:";
$file=<STDIN>;
chomp($file);
open (Hand,$file)||die "can not open file";

print "input the string to search:";
$str=<STDIN>;
chomp($str);

print "the result:/n";

$i=0;
while (<Hand>)
{
    $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.
这个程序运行特别快.
阅读全文
0 0

相关文章推荐

img
取 消
img