Scrivi programmi nella Practical Extraction and Report Language linguaggio di script quando si ha bisogno di uno strumento in grado di automatizzare in modo rapido la manipolazione di stringhe , fornire interazione con l'utente e fornire la formattazione accettabile . Ritorni a capo tendono a interrompere la formattazione di input dell'utente e l'output del programma Perl in modo che le stringhe di testo aspetto disordinato e difficile da seguire . Usa la parola chiave " chomp " per rimuovere i ritorni a capo e ripulire input e output del programma . Cose che ti serviranno
Computer con
file script l'interprete del linguaggio di programmazione Perl installato Perl che contiene la stringa di testo per cui si desidera un ritorno a capo rimosso
Mostra più istruzioni
1

Aprire una finestra di terminale a riga di comando su un computer che dispone di Perl abilitato . Aprire il file di script Perl che contiene una stringa di testo per il quale il ritorno del carrello deve essere rimosso .
2

Utilizzare i tasti freccia sulla tastiera per posizionare il cursore subito dopo la riga in cui viene assegnata una variabile del stringa di testo come valore. Per esempio, se si desidera rimuovere il ritorno a capo dalla stringa "Test " qui sotto :

$ myVariable = " Test \\ n" ;

Aggiungi una riga funzione " chomp " per il testo variabile stringa subito dopo l'assegnazione stringa di testo come scritto qui sotto :

chomp ( $ myVariable ) ;
3

Utilizzare i tasti freccia per posizionare il cursore dopo una linea che accetta l'input dell'utente e scrivere una riga funzione " chomp " per la variabile di input stringa di testo per eliminare il ritorno a capo da input dell'utente per ripulire la formattazione. Per esempio :

while ( $ user input = ) {

print "' $ input ' digitato dall'utente \\ n";

ultimo if ( $ ingresso eq '') ; }

includerà il ritorno a capo con l' input dell'utente quando l'utente preme il tasto "Invio" . Per rimuovere il ritorno a capo , inserire la funzione " chomp ", come scritto qui sotto :

while ( input utente $ = ) {

chomp ( $ input ) ;
< p > print "' $ input ' digitato dall'utente \\ n";

ultimo if ( $ input eq '') ; }