Sentencia continue de Perl
Bucles en PerlEl bloque continue de Perl normalmente se ejecuta antes de que la condición se evalúe nuevamente.
La sentencia continue se puede utilizar en bucles while y foreach.
Sintaxis
La sintaxis de la sentencia continue en un bucle while es la siguiente:
while(condition){
statement(s);
}continue{
statement(s);
}
La sintaxis de la sentencia continue en un bucle foreach es la siguiente:
foreach $a (@listA){
statement(s);
}continue{
statement(s);
}
Ejemplo
Usando la sentencia continue en un bucle while:
Ejemplo
#/usr/bin/perl
$a = 0;
while($a < 3){
print "a = $a\n";
}continue{
$a = $a + 1;
}
Al ejecutar el programa anterior, el resultado es:
a = 0 a = 1 a = 2
Usando la sentencia continue en un bucle foreach:
Ejemplo
#/usr/bin/perl
@list = (1, 2, 3, 4, 5);
foreach $a (@list){
print "a = $a\n";
}continue{
last if $a == 4;
}
Al ejecutar el programa anterior, el resultado es:
a = 1 a = 2 a = 3 a = 4Otras extensiones