Ako zachytiť Štandardný vstup v Perlu

Jeden z Perlu hesiel je TIMTOWTDI ( vyslovuje sa " tym pätolizač " ) . Je to skratka , ktorá znamená " existuje viac ako jeden spôsob , ako to urobiť . " Rovnako ako všetko ostatné v Perlu , existuje mnoho spôsobov , ako zachytiť štandardný vstup . Medzi nimi je skratka pre čítanie všetky riadky v súbore a robiť niečo , čo s nimi individuálne . Pretože sa jedná o spoločný postup v unixových filtrov , ako programy , to je veľmi často používaný v programoch v Perlu . Pokyny dovolená 1

Použite " uhol " operátor . Perl má štyri filehandles otvorené v predvolenom nastavení : . STDIN , stdout , stderr a dát , z ktorých STDIN je štandardný vstup rukoväť , slúži k zachyteniu štandardný vstup
2

Využite operátora uhla čítať jeden riadok od filehandle odovzdaný k nemu , a to buď uložiť do východiskovej $ _ premenná alebo ho použiť ako pravej strane priradenia výrazu . " Uhol " prevádzkovateľ filehandle obklopený menšie ako a väčší ako symboly , tiež odvolával sa na ako " lomených zátvoriek . " " $ A = " ;
3

použite operátor uhol v slučke while . Prevádzkovateľ uholník by malo byť to jediné , čo v Boolovský výraz cykle while je pri použití uholníkov v cykle while . Zakaždým , keď slučka beží , bude to čítať riadok a priradiť ju k $ _ prevádzkovateľa . Ak neexistujú žiadne ďalšie riadky čítať , bude cyklus while skončí : " while ( ) { žuť ; # Chomp _ $ variabilný tlač , # Vytlačiť $ _ variable } "
4

Priradiť uhol operátor do zoznamu . Priradenie výsledky prevádzkovateľa uhla na zozname je ako hovoriť " uložiť všetky riadky tohto filehandle do tohto zoznamu . " Ak priradíte operátora uhla do zoznamu , iný zástupca sa vykonáva , že priradí všetky riadky vstupu do zoznamu : " @ my_list = ; "
5

Prečítajte si z filehandle STDIN pomocou funkcie čítania . Uholník číta iba kompletné linky , a pretože to nemusí byť to , čo chcete robiť , bude funkcia read nechať prečítať akékoľvek množstvo bytov do premennej . To trvá tri parametre : filehandle , premenné uložiť ho a počet bajtov na čítanie . Nasledujúci príklad načíta 10 bajtov do $ vyrovnávacej pamäti : " čítať ( stdin $ pufor , 10 ) ; "

• Predchádzajúca strana: Ako spustiť Perl na notebook 
• Ďalšia strana: Ako vytvoriť Do Kým Loop v Perlu