Aprire un nuovo programma Perl . Inserire il cursore all'inizio del file 
 2 
 Digitare il seguente codice: 
 
 sub trim ( $ ) { 
 
my $ stringa = shift; < . br>
 $ stringa = ~ s /\\ s + $ //; 
 
 return $ stringa ; 
 
 } 
 
 Questa funzione crea un file temporaneo che assume il valore della stringa passato alla funzione . Poi usa una espressione regolare per rimuovere gli spazi finali . Il "\\ s" indica alla funzione di cercare solo per i caratteri di spazio e la " $ " dice di guardare solo alla fine della stringa . Dopo rimuovere gli spazi finali , la funzione restituisce la variabile al programma principale . 
 3 
 Salvare il file di programma . 
 
              
Programmazione © www.354353.com