Ako používať štítky v Perlu

Perl je výkonný programovací jazyk , ktorý umožňuje programátorovi vziať vysoký stupeň kontroly nad programom . Etikety sú použité na pomoc Perl programátorom organizovať program . Štítok môže byť aplikovaný do slučky alebo prepínač . Slučky a prepínače vnorené do označeného slučky potom môžete volať späť do širšej štruktúry bez pridania výnimku ukončenia na každom prepínači a slučky pozdĺž cesty . To znamená , že programátor môže preskočiť okolo štruktúry kódu rýchlo a jednoducho . Pokyny dovolená 1

Vytvorte dve polia , ktoré vyžadujú špecializovanú triedenie . Tieto polia budú považovať za príklad :

@ zvieratá = ( " Čierne mačky " , " Black Pes " , " dojnice " , " Wild Horses " , '' Monkeys ' ) ;

@ šťastie = ( " Pod rebrík " , " Čierne mačky " , " Rozliaty Salt ' , '13 ' ) ;
2

Triediť cez mien s vnorených slučiek takto :

@ zvieratá = ( " Čierne mačky " , " Black Pes " , " dojnice " , " Wild Horses " , '' Monkeys ' ) ;

@ šťastie = ( " Pod rebrík " , " Čierne mačky " , " Rozliaty Salt ' , '13 ' ) ;

foreach $ stvorenia ( @ zvieratá ) {

print " $ stvorenia \\ n " ;

if ( $ tvor = ~ /Black /) {

foreach $ kúzlo ( @ šťastie ) {

print " \\ t $ kúzlo \\ n" ;

trvať , pokiaľ $ kúzlo eq $ šťastie ;

}

}

}

Tu budeme hľadať cez zvieratá pole pre zlé talizmany . Slučky kúzla slučka sa uzavrie , keď " Čierne mačky " sa vyskytujú v oboch slučiek , ale zastrešujúca zviera slučka bude pokračovať
3

Vložte štítok upratať zmätok : .

@ zvieratá = ( " Čierne mačky " , " Black Pes " , " dojnice " , " Wild Horses " , '' Monkeys ' ) ;

@ šťastie = ( " Pod rebrík " , " Čierne cats " , " Rozliaty Salt ' , '13 ' ) ;

Label : foreach $ stvorenia ( @ zvieratá ) {

print " $ stvorenia \\ n" ;

ak ( $ bytosť = ~ /Black /) {

foreach $ kúzlo ( @ šťastie ) {

print " \\ t $ kúzlo \\ n" ;

posledný Label ak $ kúzlo eq $ šťastie ;

}

}

}

Každý názov môže byť použitý v mieste " Label " . Treba nasledované dvojbodkou , keď ich najprv deklarovaná . To potom môže byť volaná kdekoľvek v rámci slučky alebo switch to ovláda . V neskorších častiach programu , to môže byť volaná s " Spustiť Label . "

• Predchádzajúca strana: Ako previesť Perl skript na EXE 
• Ďalšia strana: Ako skryť znakov hesla v STDIN Perl Windows