【关于出错信息】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>;

复制代码

pitonas

for     

飞越地平线

回复 2# pitonas

哦。。那map应该怎么跳出呢？

   

pitonas

回复 3# 飞越地平线

sorry, You can't.
   

pitonas

哦。  

飞越地平线

回复 5# pitonas

好吧。


   

pitonas

回复 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
    

复制代码

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
   

复制代码

飞越地平线

回复 7# pitonas

好吧。我一直以为匹配捕获的内容会保存在下一次匹配成功前，实际应该是保存在下一次匹配前。
我应该用这个程序：

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

复制代码