while 嵌套问题

pony2001mx

我以下面的简单脚本(test.pl ) 举例：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open F1, $ARGV[0];
   
5. open F2, $ARGV[1];
   
6. 
   
7. while(my $line =<F1>){
   
8.         chomp $line; print "$line\n";
   
9. 
   
10.         while (my $line2 =<F2>){
    
11.                 chomp $line2; print "$line2\n";
    
12.         }
    
13. 
    
14. }
    
15. close F1;
    
16. close F2;

复制代码

文件1（file1.txt）内容：
a
b
c

文件2（file2.txt）内容：
1
2

运行命令为 perl test.pl file1.txt file2.txt

输出为：
a
1
2
b
c

我的原意是两个while嵌套，输出3x2=6行，这里为什么只输出5行，如何实现输出6行？非常谢谢！！

stanley_tam

文件句柄貌似不能这么玩把，句柄到end of file了，再读，就是空的，返回假值了。
六行再加上file1.txt的3行，总共有9行{:3_193:}

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open F1, $ARGV[0];
   
5. 
   
6. 
   
7. while(my $line =<F1>){
   
8.         chomp $line; print "F1 => $line\n";
   
9. 
   
10.         open F2, $ARGV[1];
    
11.         while (my $line2 =<F2>){
    
12.                 chomp $line2; print "F2 => $line2\n";
    
13.         }
    
14.         close F2;
    
15. }
    
16. close F1;
    

复制代码

pony2001mx

求指点如何改正脚本，谢谢！！

stanley_tam

用seek也可以，每次都从头开始读取

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open F1, $ARGV[0];
   
5. open F2, $ARGV[1];
   
6. 
   
7. while(my $line =<F1>){
   
8.         chomp $line; print "F1 => $line\n";
   
9. 
   
10.         seek(F2, 0, 0);
    
11.         while (my $line2 =<F2>){
    
12.                 chomp $line2; print "F2 => $line2\n";
    
13.         }
    
14. 
    
15. }
    
16. close F1;
    
17. close F2;

复制代码

pony2001mx

谢谢指点！！

huang6894

回复 4# stanley_tam


    seek，学习了，谢谢谢谢