Cómo utilizar las etiquetas en Perl

Perl es un lenguaje de programación potente que permite al programador tener un alto grado de control sobre el programa. Las etiquetas se utilizan para ayudar a los programadores de Perl organizar el programa. Una etiqueta se puede aplicar a un bucle o un interruptor . Loops y conmutadores anidados dentro del bucle etiquetado se pueden llamar de nuevo a la estructura más amplia sin añadir una excepción de la terminación de cada interruptor y el lazo en el camino. Por lo tanto , el programador puede saltar alrededor de la estructura del código de forma rápida y sencilla . Instrucciones
1

crear dos matrices que requieren selección especializada. Estas matrices se tomarán como ejemplo :

@ animales = (' Black Cats ', ' Perros Negros ', ' vacas lecheras ', ' Wild Horses ','' Monkeys ');
< p > @ suerte = (' Bajo Ladder ' , ' Black Cats ' , ' Tirado Salt' , '13 ');
2

Ordenar a través de los nombres con bucles anidados de la siguiente manera :
< p > @ animales = (' Black Cats ', ' Perros negros ', ' vacas lecheras ', ' Wild Horses ','' Monkeys ');

@ afortunados = ( ' Bajo Ladder ',' Black Cats ' , " derramado Salt ' , '13 ');

foreach $ criatura ( @ animales ) {

print" $ criatura \\ n ";

if ($ criatura = ~ /Negro /) {

foreach $ encanto (@ suerte) {

print "\\ t $ encanto \\ n";

pasado si $ encanto eq $ suerte ;

} } }

Aquí buscamos a través de la matriz de los animales para los malos amuletos de la suerte . El bucle encantos bucle se cerrará cuando se encuentran "gatos negros" en los dos bucles , pero el lazo de animales global continuará
3

Introduzca una etiqueta para aclarar la confusión .

@ animales = (' Black Cats ', ' Perros negros ', ' vacas lecheras ', ' Wild Horses ','' Monkeys ');

@ suerte = (' Bajo Ladder ',' Negro Cats "," derramado Salt ' , '13 ');

Label : foreach $ criatura ( @ animales ) {

print " $ criatura \\ n";

si ($ animal = ~ /Negro /) {

foreach $ encanto (@ suerte) { print

"\\ t $ encanto \\ n";

última Label si $ eq $ encanto afortunado ;

} } }

Cualquier nombre puede ser usado en lugar de "Etiqueta ". Tiene que ser seguido de dos puntos cuando se declaró por primera vez . A continuación, se puede llamar en cualquier lugar dentro del bucle o interruptor que controla. En porciones posteriores del programa , se le puede llamar con " Start Label. "