In Perl, un'espressione regolare è uno o più caratteri utilizzati per associare i valori in stringhe, ad esempio lettere specifiche, identificare segni o spazi vuoti. È possibile creare funzioni che utilizzano espressioni regolari con l'operatore di sostituzione di Perl per abbinare i caratteri di spazio vuoto e rimuoverli. Il "^" carattere consente di specificare solo i caratteri all'inizio della stringa, il "$" consente di individuare solo quelli alla fine o si può omettere questi e abbinare tutti gli spazi vuoti in tutta la stringa.

Istruzioni

1

Aprire un file di programma Perl e inserire il cursore all'inizio.

2

Digitare il seguente codice:

sub trim($) {

mio $string = shift;

$string = ~ s/\s + / / g;

ritorno $string;

}

Questa funzione utilizza l'operatore di sostituzione "s / / /" per abbinare gli spazi bianchi e rimuoverle. La classe di caratteri "\s" corrisponde a tutti gli spazi vuoti e li sostituisce con niente. In altre parole, li rimuove. Restituisce una stringa che non contiene alcun carattere di spazio bianco ovunque.

3

Digitare il seguente codice:

Sub ltrim($) {

mio $string = shift;

$string = ~ s / ^ \s + / /;

ritorno $string;

}

Questa funzione rimuove solo spazi vuoti iniziali prima di qualsiasi altro carattere. Il "^ \s" dice per abbinare gli spazi vuoti solo fino al primo carattere diverso dallo spazio, quindi rimuoverli.

4

Digitare il seguente codice:

Sub rtrim($) {

mio $string = shift;

$string = ~ s/\s+$ / /;

ritorno $string;

}

Questa funzione rimuove solo spazi vuoti iniziali alla fine della stringa. La "s + $" dice per abbinare gli spazi vuoti solo dopo tutti i caratteri di diverso dallo spazio, quindi rimuoverli.

5

Salvare il file di programma.

Consigli & Avvertenze

• È possibile scrivere un'altra funzione che rimuove spazi vuoti da entrambe le estremità sinistra e destra di una stringa, ma lascia gli spazi bianchi tra i caratteri prendendo le espressioni regolari nelle funzioni ltrim e rtrim e utilizzarli entrambi in una singola funzione.