Ultima istruzione di Perl

Quando un lastviene incontrato all'interno di un ciclo, il ciclo viene immediatamente terminato e il controllo del programma riprende dall'istruzione successiva che segue il ciclo. È possibile fornire un'ETICHETTA con l'ultima istruzione dove LABEL è l'etichetta per un ciclo. UNlast l'istruzione può essere utilizzata all'interno di un ciclo annidato dove sarà applicabile al ciclo più vicino se non viene specificata un'ETICHETTA.

Se ce n'è continueblocco sul ciclo, quindi non viene eseguito. Vedrai la dichiarazione continue in un capitolo separato.

Sintassi

La sintassi di a last dichiarazione in Perl è -

last [LABEL];

Diagramma di flusso

Esempio 1

#!/usr/local/bin/perl

$a = 10;
while( $a < 20 ) {
   if( $a == 15) {
      # terminate the loop.
      $a = $a + 1;
      last;
   }
   print "value of a: $a\n";
   $a = $a + 1;
}

Quando il codice sopra viene eseguito, produce il seguente risultato:

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14

Esempio 2

Facciamo un esempio in cui useremo un'ETICHETTA insieme all'istruzione successiva:

#!/usr/local/bin/perl

$a = 0;
OUTER: while( $a < 4 ) {
   $b = 0;
   print "value of a: $a\n";
   INNER:while ( $b < 4) {
      if( $a == 2) {
         # terminate outer loop
         last OUTER;
      }
      $b = $b + 1;
      print "Value of b : $b\n";
   }
   print "\n";
   $a = $a + 1;
}

Quando il codice sopra viene eseguito, produce il seguente risultato:

value of a : 0
Value of b : 1
Value of b : 2
Value of b : 3
Value of b : 4

value of a : 1
Value of b : 1
Value of b : 2
Value of b : 3
Value of b : 4

value of a : 2