aktuell laufende Schleife beenden - #69968 (Allgemeines zu Perl)

Strat

2006-09-23 14:22

User since
2003-08-04
5246 Artikel
ModeratorIn

Oft ist es hilfreich, der Schleife ein Label zu verpassen, und dann next/last/redo Label zu verwenden. Ein next/last/redo ohne Label wirkt naemlich nur auf die innerste Schleife

Code: (dl )

VALUE:
for my $value (1..10) {
  ....
  if( $value % 2 == 0 ) { # wenn gerade zahl
    next VALUE;
  }
} # for

Hier sieht man das Problem deutlich:

Code: (dl )

for my $value (1..10) {
  print "Before: $value\n";
  { # block, also acts as loop
    print "inside1: $value\n";
    if( $value % 2 == 0 ) {
      print "inside2: $value -> skip\n";
      next; # bezieht sich nur auf block, nicht auf for
    } # if
    print "inside 3: $value\n";
  } # block
  print "after: $value\n";
} # for

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/