Perl non dispone di una funzione incorporata che rimuove gli spazi dall'inizio o alla fine di una stringa, ma è possibile utilizzare l'operatore di sostituzione incorporato 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 in grado di aiutare a pulire e convalidare l'input dell'utente, e si può anche usare per rimuovere lo spazio necessario in un file di testo.

istruzione

1 Aprire un documento di testo vuoto.

2 Digitare le righe seguenti per avviare lo script Perl:

! Bin / perl

use strict;
utilizzare avvertimenti;

3 Digitare le seguenti righe per creare una stringa che contiene spazi all'inizio e alla fine della stringa, e stampare la stringa schermo:

il mio $ orig_string = "Questa è una stringa ...";
print $ orig_string "\ n".;

4 Digitare le righe seguenti per rimuovere gli spazi bianchi dall'inizio della stringa e stampare la stringa modificata per lo schermo:

$ Orig_string = ~ s / ^ \ s + //;
print $ orig_string;

5 Digitare le righe seguenti per rimuovere gli spazi 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.

Consigli e avvertenze

• Utilizzare l'operatore di sostituzione per rimuovere eventuali caratteri specificati dalla all'inizio o alla fine di una stringa.