foreach循環(huán)的疑問。

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. }
    

復(fù)制代碼

為什么在這里第一個(gè)foreach只循環(huán)了一次就退出了呢？


改成這樣后就成了：

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. }
    

復(fù)制代碼

但把foreach里的@word替換成@word=<AA>，@value替換成@value=<BB>,又出現(xiàn)了相同的問題
第一個(gè)foreach 又只循環(huán)一次就退出了。

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. }
   

復(fù)制代碼

這是為什么呢？本人初學(xué)perl，希望各位指點(diǎn)指點(diǎn)，如果問題太幼稚，還希望各位多多包涵。

iamlimeng

我認(rèn)為是這樣的：
你OPEN一次文件，只可以通過操作符<>遍歷一次OPEN的文件內(nèi)容，不能多次重復(fù)遍歷，除非你再OPEN一次。在你第一次用foreach (<>)遍歷完文件內(nèi)容時(shí)，該文件句柄就自動關(guān)閉了，相當(dāng)于close AA了。

一樓的第一段代碼的第一個(gè)foreach，并不是象你說的只循環(huán)了一次，而是把<AA>的內(nèi)容遍歷了一遍，只不過<AA>的第二行是接在<BB>的最后一行以后打印，因?yàn)?lt;BB>已經(jīng)被遍歷了一次，所以在讀<AA>第二行時(shí)，BB已經(jīng)被關(guān)閉了，所以不再有內(nèi)容輸出。

下面的例子更容易看懂，Second time后面什么也不會打印，因?yàn)锳A已經(jīng)被關(guān)閉了：

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>;

復(fù)制代碼

但如果你用@array=<AA>存儲了文件內(nèi)容，那么作為一個(gè)數(shù)組變量，當(dāng)然是可以多次讀取內(nèi)容了。

李尋歡92

回復(fù) 1# lucash


    應(yīng)該這樣吧

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. }

復(fù)制代碼

lucash

回復(fù)  lucash


    應(yīng)該這樣吧
李尋歡92 發(fā)表于 2010-05-05 18:44

    為什么呢？

lucash

為什么要在第一個(gè)foreach塊里打開另外的文件才有行呢？

李尋歡92

回復(fù) 4# lucash


    因?yàn)槟阊�環(huán)時(shí)把BB已經(jīng)讀完了，下一次AA循環(huán)就不讀了！

lucash

回復(fù) 5# 李尋歡92


       foreach(<BB>){}

即使在這個(gè)foreach前面打開BB，這個(gè)foreach還是會把BB讀完啊，那為什么卻會進(jìn)行下一個(gè)循環(huán)了呢？

李尋歡92

回復(fù) 6# lucash


    因?yàn)樵谙乱淮窝�環(huán)又打開了BB

lucash

    回復(fù) 4# lucash


    因?yàn)槟阊�環(huán)時(shí)把BB已經(jīng)讀完了，下一次AA循環(huán)就不讀了！

回復(fù)  lucash


    因?yàn)樵谙乱淮窝�環(huán)又打開了BB
李尋歡92 發(fā)表于 2010-05-05 19:19

既然循環(huán)時(shí)把BB讀完了下一次AA循環(huán)就不讀了。那你說的下一次循環(huán)又打開了BB是怎么來的？不是已經(jīng)不讀了么？

iamlimeng

建議樓主多用print，看輸出了什么，就知道程序究竟是如何運(yùn)作的，比如把代碼改成這樣：

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. }

復(fù)制代碼