Uno dei motti del Perl è TIMTOWTDI ( pronunciato " tim leccapiedi " ) . E ' un acronimo che sta per " non vi è più di un modo per farlo. " Proprio come tutto il resto in Perl , ci sono molti modi per catturare l'input standard . Tra di loro è una scorciatoia per la lettura di tutte le righe in un file e fare qualcosa con loro individualmente . Dal momento che si tratta di una azione comune in Unix programmi filtro -like , è usato molto spesso nei programmi Perl . Istruzioni
1

utilizzare l'operatore "angolo" . Perl ha quattro filehandle aperto di default : . Stdin, stdout , stderr e DATI , di cui STDIN è la maniglia standard input , usato per catturare l'input standard
2

Utilizzare l'operatore angolo di leggere una sola riga dal filehandle passati ad esso, e sia nel negozio _ variabile predefinita $ o usarlo come il lato destro di un'espressione di assegnazione . L'operatore "angolo" è un filehandle circondato da minore e maggiore di simboli , noto anche come " parentesi angolari ". "$ a =; "
3

utilizzare l'operatore di angolo in un ciclo while . L'operatore parentesi angolare dovrebbe essere l'unica cosa nel mentre l'espressione booleana del ciclo quando si usano le parentesi angolari in un ciclo while . Ogni volta che il tempo è gestito ciclo , sarà letta una riga e assegnarlo a l'operatore $ _ . Quando non ci sono più righe da leggere , il ciclo while si concluderà : " while ( ) { chomp ; # Chomp la stampa variabile $ _ ; # Stampa la variabile $ _ } "
4

Assegnare il operatore angolo a un elenco. Assegnare i risultati dell'operatore angolo di una lista è come dire " memorizzare tutte le linee di questo filehandle a questa lista . " Quando si assegna l'operatore angolo di una lista, un altro collegamento viene effettuato che assegna tutte le linee di ingresso per la lista : " @ my_list =; "
5

Leggi dalla STDIN filehandle utilizzando la funzione di lettura . La parentesi angolare legge solo linee complete , e dal momento che questo potrebbe non essere quello che si vuole fare , la funzione di lettura vi permetterà di leggere qualsiasi quantità di byte in una variabile . Ci vogliono tre parametri : il filehandle , la variabile da memorizzare in e il numero di byte da leggere. Il seguente esempio legge 10 byte in $ buffer: "read ( stdin, $ tampone , 10); "

• Come eseguire Perl su un computer portatile 
• Come creare un ciclo Do While in Perl