Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Import " Súbor :: Nájsť " modulu pomocou " Použiť " kľúčové slovo . Všetky rozvody Perl by mala prísť s " File :: Find " modul , takže to nie je nutné ho nainštalovať samostatne : " Použitie súboru :: Nájdite ; "
2
Napíšte funkciu filtra , pretože " Súbor :: Hľadať :: nájsť " funkcia nie je vlastne robiť žiadne filtrovanie . Vytvorte funkciu filtrovania , ktorý ukladá súbory v zozname , vytlačí je , odstráni ich , sa pohybuje , alebo robí čokoľvek iné , čo chcete robiť so súbormi . Funkcia filtra trvá žiadne argumenty , a názov súboru v súčasnej dobe navštevuje súbor :: Hľadať :: nájsť bude v predvolenom premennej $ _ . V tomto príklade je funkcia filtra filtruje súbory na základe ich názvu súboru a regulárny výraz : " sub filter { if ( $ _ = ~ /\\ html $ /i ) { Print " $ _ \\ n " ; } } "
3
Call " File :: Hľadať :: nájsť " funkcie , pretože " Použiť " kľúčové slovo importovať všetky funkcie zo súboru :: nájsť v globálnom mennom priestore . Funkcia " Nájsť " berie dva argumenty . Prvým z nich je odkaz na funkciu filtra , syntaxe , ktorá vyzerá trochu divne .
4
Vytvoriť odkaz na funkciu " Filter " pomocou kódu " \\ & filter " . Spätné lomítko je referenčný operátor , čo znamená , že bude odkaz z čohokoľvek je odovzdaný k nemu . Zvyčajne vynechaný , a je funkcia alebo podprogram prefix , ktorý sa používa na označenie funkcie . Používa sa rovnako ako $ je pre skalár , @ pre zoznamy a " % " pre hash .
5
Pomocou druhého parametra nájsť základné adresár pre vyhľadávanie . To by malo byť buď absolútna cesta alebo aktuálny adresár , označil " . " . " Find ( \\ a filtra , " . " ) ; "
6
Heslo anonymný podprogram namiesto odkaz funkčné . " Sub " kľúčové slovo je anonymný podprogram a vráti odkaz na neho , čo je užitočné pre funkcie , ako je File :: Nájsť :: zistiť , či je funkcia chcete , je veľmi krátka . Udržuje všetky kódu v jednom mieste , takže čitateľ kódu nemusí hľadať funkciu filtra . Tento príklad len vytlačiť všetky súbory nájdené , bez regex filtrom : " nájsť ( sub { print " $ _ \\ n " ; } " . " ) ; "
Copyright © počítačové znalosti Všetky práva vyhradené