Een van Perl 's motto is TIMTOWTDI ( uitgesproken als " tim toady " ) . Het is een acroniem dat staat voor "er is meer dan een manier om het te doen . " Net zoals alles in Perl , er zijn vele manieren om de standaard invoer vast te leggen . Onder hen is een sneltoets voor het lezen van alle regels in een bestand en iets te doen met hen individueel . Aangezien dit is een gemeenschappelijke actie in Unix filter - achtige programma's , het is heel vaak gebruikt in Perl programma's . Instructies 1 Gebruik de " hoek " operator . Perl heeft vier filehandles die standaard worden geopend : . STDIN , STDOUT , STDERR en DATA , waarvan STDIN is de standaard input handvat , gebruikt om de standaard invoer vastleggen kopen van 2 Gebruik maken van de hoek operator om een enkele lijn te lezen uit de filehandle doorgegeven aan het, en of op te slaan in het standaard $ _ variabele of gebruik het als de rechterzijde van een opdracht expressie . De " hoek " subject een filehandle omgeven met minder dan en groter dan tekens , ook wel " hoekijzers . " " $ a = ; " 3 Gebruik de hoek operator in een while lus . De hoeksteun exploitant moet het enige wat in de while lus 's boolean expressie bij het gebruik punthaken in een while lus . Elke keer als de while lus wordt uitgevoerd , het zal een lijn te lezen en toe te wijzen aan de $ _ operator . Als er geen meer lijnen te lezen , zal de while lus te beëindigen : " while ( ) { chomp ; # Chomp de $ _ variabele druk ; # Print de variabele $ _ } " 4 Wijs de hoek operator een lijst . De resultaten van de hoek operator een lijst toewijzen is hetzelfde als zeggen " slaan alle van de lijnen van deze filehandle aan deze lijst . " Als u de hoek operator toewijzen aan een lijst , wordt een andere snelkoppeling uitgevoerd dat alle lijnen van de ingang toegewezen aan de lijst : " @ my_list = ; " 5 Lees vanaf de STDIN filehandle de Read -functie . De hoeksteun leest alleen complete lijnen , en aangezien dit niet zou kunnen zijn wat je wilt doen , zal de lees -functie laat u elke hoeveelheid bytes te lezen in een variabele . Er zijn drie parameters : de filehandle de variabele op te slaan in en het aantal bytes te lezen . Het volgende voorbeeld leest 10 bytes in $ buffer : " lezen ( STDIN , $ buffer , 10 ) ; "
|