Perl är ett kraftfullt programmeringsspråk som gör att programmerare att ta en hög grad av kontroll över programmet . Etiketter används för att hjälpa Perl programmerare organisera programmet . En etikett kan appliceras på en slinga eller en omkopplare. Loopar och switchar kapslat i märkta slingan kan sedan ringa tillbaka till den bredare struktur utan att lägga en uppsägning undantag till varje switch och slinga längs vägen . Således kan programmeraren hoppa runt strukturen av koden snabbt och enkelt. Instruktioner
1
Skapa två matriser som kräver specialiserad sortering . Dessa matriser kommer att tas för ett exempel :
@ djur = ( ' Black Cats "," svarta hundar "," Mejeri skrämmer "," Wild Horses ','' Monkeys ');
@ lucky = ( ' Under Trappan , " Black Cats " , " Spilld Salt ' , '13 ');
2
Sortera genom namnen med nästlade loopar som följer:
@ djur = ( ' Black Cats "," svarta hundar "," Dairy Cows ' , ' Wild Horses ','' Monkeys ' ),
@ lucky = ( "under Ladder " , " Black Cats " , " Spilld Salt ' , '13 ');
foreach $ varelse ( @ djur ) {
print " $ varelse \\ n ";
if ( $ varelse = ~ /Black /) {
foreach $ charm ( @ lucky ) {
print " \\ t $ charm \\ n";
sista om $ charm eq $ lucky ;
}
}
}
Här vi söka igenom djuren arrayen för dåliga luck charm . Slingan charm loopen stängs när " Black Cats " påträffas i båda slingorna , men den övergripande djuret slingan fortsätter
3
Infoga en etikett för att reda upp förvirringen : .
@ djur = ( ' Black Cats "," svarta hundar "," Dairy Cows ' , ' Wild Horses ','' Monkeys ' ),
@ lucky = ( ' Under Ladder "," Black Cats ' , ' spillda Salt ' , '13 ');
Label : foreach $ varelse ( @ djur ) {
print " $ varelse \\ n";
om ( $ varelse = ~ /Black /) {
foreach $ charm ( @ lucky ) {
print " \\ t $ charm \\ n";
sista etiketten om $ charm eq $ lucky ,
}
}
}
Varje namn kan användas i stället för " Label ". Det måste följt av ett kolon när den först har deklarerats. Det kan då kallas någonstans i slingan eller stänga kontroller . I senare delar av programmet , kan det kallas med "Start Label . " Addera
