【關(guān)于出錯信息】Can't "next" outside a loop block

飛越地平線

如題：Can't "next" outside a loop block at D:\s.pl line 28, <IN3> line 49110.

1. map {
   
2.                 chomp;
   
3.                 if(/^>(.*)$/){
   
4.                         next;
   
5.                 }else {
   
6.                         my $name =$1;
   
7.                         .....;
   
8.                 }
   
9.         } <IN3>;

復(fù)制代碼

pitonas

for     

飛越地平線

回復(fù) 2# pitonas

哦。。那map應(yīng)該怎么跳出呢？

   

pitonas

回復(fù) 3# 飛越地平線

sorry, You can't.
   

pitonas

哦。  

飛越地平線

回復(fù) 5# pitonas

好吧。


   

pitonas

回復(fù) 6# 飛越地平線

try

1. map {
   
2.     chomp;
   
3.     if (/^>(.*)$/) {
   
4.         print  "IN IF: I have \$1: $1, but the coder let me go\n";
   
5.     }
   
6.     else {
   
7.         print
   
8.           "IN ELSE, I have no \$1, please don't assign \$1 to \$name\n";
   
9.     }
   
10. } <DATA>;
    
11. __DATA__
    
12. >12
    
13. do you want to have $1 ?
    
14. >13
    

復(fù)制代碼

1. IN IF: I have $1: 12, but the coder let me go
   
2. IN ELSE, I have no $1, please don't assign $1 to $name
   
3. IN IF: I have $1: 13, but the coder let me go
   

復(fù)制代碼

飛越地平線

回復(fù) 7# pitonas

好吧。我一直以為匹配捕獲的內(nèi)容會保存在下一次匹配成功前，實際應(yīng)該是保存在下一次匹配前。
我應(yīng)該用這個程序：

1. my $name;
   
2. map {
   
3.     chomp;
   
4.     if (/^>(.*)$/) {
   
5.                 $name = $1;
   
6.         print  "IN IF: I have \$1: $1, and \$name is $name\n";
   
7.     }
   
8.     else {
   
9.         print  "IN ELSE, I have no \$1: $1, and \$name is $name\n";
   
10.     }
    
11. } <DATA>;
    
12. __DATA__
    
13. >12
    
14. do you want to have $1 ?
    
15. >13

復(fù)制代碼