怎么第二次查询的时候不行

redspider

1.        #!/usr/bin/perl -w
   
2.        open(TEL,"Tel_lu_an")|| die "Can't open Tel book $!\n";
   
3.        print "输入你需要查询的内容: ";
   
4.        chomp($qu=<STDIN>);
   
5.        print "-"x70,"\n";
   
6.        while($qu ne "q"){
   
7.         while(<TEL>){
   
8.          if(/$qu/) { print }
   
9.         }
   
10.        print "-"x50,"\n";
    
11.        print "输入你需要查询的内容:";
    
12.        chomp($qu=<STDIN>);
    
13.        print "-"x70,"\n";
    
14.       }

复制代码

大侠帮我看看，为什么第二次查询的时候就不行了
:confused:

roby

当你第一次查完后
已经到文件末尾了

redspider

应该怎么样修改程序，或者重置变量 "$_" 呐

roby

我的蠢方法

1. 
   
2. #!/usr/bin/perl -w
   
3.        print "输入你需要查询的内容: ";
   
4.        chomp($qu=<STDIN> );
   
5.        print "-"x70,"\n";
   
6.        while($qu ne "q"){
   
7.                 open(TEL,"Tel_lu_an.txt")|| die "Can't open Tel book $!\n";
   
8.         while(<TEL> ){
   
9.          if(/$qu/) { print }
   
10.         }
    
11.        print "-"x50,"\n";
    
12.            close TEL;
    
13.        print "输入你需要查询的内容:";
    
14.        chomp($qu=<STDIN> );
    
15.        print "-"x70,"\n";
    
16.       }
    

复制代码

redspider

谢谢 :thank

tsingson

第二次输入后，并没有作查询。

建议，如果文件小，把文件读入数组，从数组中搜索
文件大，就要对文件单行操作，在第二次搜索时，注意回到文件头，再搜索过

其实，如果存在多次搜索，写为一个 loop 不错