Perl non ha una funzione built-in che rimuove gli spazi bianchi dall'inizio o dalla fine di una stringa , ma è possibile utilizzare l'operatore di sostituzione incorporati per eseguire la stessa funzione . L' operatore di sostituzione utilizza espressioni regolari standard per sostituire una porzione di una stringa con altri caratteri. Rimozione di spazi può aiutare a pulire e validare l'input dell'utente , e si può anche usare per rimuovere lo spazio non necessario in un file di testo . Istruzioni
1

Aprire un documento di testo vuoto
2

Digitare le righe seguenti per avviare lo script Perl : . !

# Bin /perluse rigorosa , uso avvertimenti ;
3

digitare le seguenti linee per creare una stringa che contiene gli spazi bianchi all'inizio e alla fine della stringa , e stampa la stringa sullo schermo :
< p > my $ orig_string = " Questa è una stringa ... " ; print $ orig_string . " \\ n " ;
4

Tipo le seguenti righe per rimuovere gli spazi bianchi dall'inizio della stringa e stampare la stringa modificata per lo schermo :
< p > $ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5

Digitare le righe seguenti per rimuovere gli spazi bianchi a partire dalla fine della stringa e stampare la stringa modificata per lo schermo : . .

$ orig_string = ~ s /\\ s + $ //; print $ orig_string " \\ n";
6

Salvare e chiudere il file
< br >