如何跳出循环中的if判断

macgradywk

如       open(FORCEHW,"<forcehw.v") or die "Cannot open forcehw.v!\n";
         while ($line = <FORCEHW>) {
         if ( $line =~..) {
         do something;
         我只想do一次something（遇到第一个匹配的行）,如果下次某行再匹配，不做任何事，不匹配的都去做else里的事
         }
         else { do somthing;}
       }

请问怎么做？

pitonas

{:2_172:}

1. my $first = 0;
   
2. while (<DATA>) {
   
3.     if ( /A/ ) {
   
4.         next if $first++;
   
5.         print "IN IF $_";
   
6.     }
   
7.     else { print "IN ELSE $_" }
   
8. }
   
9. __DATA__
   
10. A1
    
11. B
    
12. C
    
13. A2
    
14. D
    
15. E

复制代码

IN IF A1
IN ELSE B
IN ELSE C
IN ELSE D
IN ELSE E

jason680

回复 1# macgradywk

$ perl onetimes.pl
1:xxxx
2:here
>>> got it, here
3:yyy
4:here
5:zzz

$ cat onetimes.pl

use strict;
use warnings;

my $sFlg_done = 0;
my $sCnt = 0;
while(<DATA>){
  chomp;
  print ++$sCnt, ":$_\n";
  if(m/here/){
    if($sFlg_done != 1){
      # do something
      print "  >>> got it, $_\n";
    }
    $sFlg_done = 1;
  }
  else{
   # do something
  }
}


__DATA__
xxxx
here
yyy
here
zzz


   

Crisewng

1. my $con=0;
   
2. open(FORCEHW,"<forcehw.v") or die "Cannot open forcehw.v!\n";
   
3.          while ($line = <FORCEHW>) {
   
4.          if ( $line =~..) {
   
5.           
   
6.          do something;
   
7.          next if $con;
   
8.          $con++;
   
9.          我只想do一次something（遇到第一个匹配的行）,如果下次某行再匹配，不做任何事，不匹配的都去做else里的事
   
10.          }
    
11.          else { do somthing;}
    
12.        }
    

复制代码

用 $con 来控制匹配过或者没有匹配过，如果检测到 $con>0 的话就说明已经匹配过那么就跳出当前的循环体