foreach循环的疑问。

lucash

1. 
   
2. open AA,"<",$ARGV[0];
   
3. open BB,"<",$ARGV[1];
   
4. 
   
5. my %hash;
   
6. 
   
7. foreach(<AA>){
   
8.     chomp;
   
9.     my $word = $_;
   
10.     foreach(<BB>){
    
11.          chomp;
    
12.          print "$word ---- $_ \n";
    
13.     }
    
14. }
    

复制代码

为什么在这里第一个foreach只循环了一次就退出了呢？


改成这样后就成了：

1. 
   
2. my %hash;
   
3. my @word=<AA>;
   
4. my @value=<BB>;
   
5. 
   
6. foreach $word (@word){
   
7.     chomp $word;
   
8.     foreach $value(@value){
   
9.          chomp $value;
   
10.          print "$word ---- $value\n";
    
11.     }
    
12. }
    

复制代码

但把foreach里的@word替换成@word=<AA>，@value替换成@value=<BB>,又出现了相同的问题
第一个foreach 又只循环一次就退出了。

1. 
   
2. my %hash;
   
3. foreach $word (@word = <AA>){
   
4.      chomp $word;
   
5.      foreach $value (@value = <BB>){
   
6.            chomp $value;
   
7.            print "$word ---- $value\n";
   
8.      }
   
9. }
   

复制代码

这是为什么呢？本人初学perl，希望各位指点指点，如果问题太幼稚，还希望各位多多包涵。

iamlimeng

我认为是这样的：
你OPEN一次文件，只可以通过操作符<>遍历一次OPEN的文件内容，不能多次重复遍历，除非你再OPEN一次。在你第一次用foreach (<>)遍历完文件内容时，该文件句柄就自动关闭了，相当于close AA了。

一楼的第一段代码的第一个foreach，并不是象你说的只循环了一次，而是把<AA>的内容遍历了一遍，只不过<AA>的第二行是接在<BB>的最后一行以后打印，因为<BB>已经被遍历了一次，所以在读<AA>第二行时，BB已经被关闭了，所以不再有内容输出。

下面的例子更容易看懂，Second time后面什么也不会打印，因为AA已经被关闭了：

1. #!/usr/bin/perl
   
2. 
   
3. $file1 = "test1.pl";
   
4. 
   
5. open AA,"<",$file1;
   
6. print "Fist time:\n";
   
7. foreach (<AA>) {
   
8.         print;
   
9. }
   
10. print "\n\nSecond time:\n";
    
11. foreach (<AA>) {
    
12.         print;
    
13. }
    
14. close AA;
    
15. 
    
16. <STDIN>;

复制代码

但如果你用@array=<AA>存储了文件内容，那么作为一个数组变量，当然是可以多次读取内容了。

李寻欢92

回复 1# lucash


    应该这样吧

1. open AA,"<",$ARGV[0];
   
2. my %hash;
   
3. 
   
4. foreach(<AA>){
   
5.     chomp;
   
6.     my $word = $_;
   
7.     open BB,"<",$ARGV[1];
   
8.     foreach(<BB>){
   
9.          chomp;
   
10.          print "$word ---- $_ \n";
    
11.     }
    
12. }

复制代码

lucash

回复  lucash


    应该这样吧
李寻欢92 发表于 2010-05-05 18:44

    为什么呢？

lucash

为什么要在第一个foreach块里打开另外的文件才有行呢？

李寻欢92

回复 4# lucash


    因为你循环时把BB已经读完了，下一次AA循环就不读了！

lucash

回复 5# 李寻欢92


       foreach(<BB>){}

即使在这个foreach前面打开BB，这个foreach还是会把BB读完啊，那为什么却会进行下一个循环了呢？

李寻欢92

回复 6# lucash


    因为在下一次循环又打开了BB

lucash

    回复 4# lucash


    因为你循环时把BB已经读完了，下一次AA循环就不读了！

回复  lucash


    因为在下一次循环又打开了BB
李寻欢92 发表于 2010-05-05 19:19

既然循环时把BB读完了下一次AA循环就不读了。那你说的下一次循环又打开了BB是怎么来的？不是已经不读了么？

iamlimeng

建议楼主多用print，看输出了什么，就知道程序究竟是如何运作的，比如把代码改成这样：

1. open AA,"<",$ARGV[0];
   
2. open BB,"<",$ARGV[1];
   
3. 
   
4. foreach(<AA>){
   
5.     print;            #加一行，你看见输出，就知道是怎么回事了
   
6.     chomp;
   
7.     my $word = $_;
   
8.     foreach(<BB>){
   
9.          chomp;
   
10.          print "$word ---- $_ \n";
    
11.     }
    
12. }

复制代码