In Perl , una espressione regolare è uno o più caratteri utilizzati per abbinare i valori in stringhe , come ad esempio lettere specifiche , marchi di identificazione o spazi vuoti . È possibile creare funzioni che utilizzano le espressioni regolari con l'operatore di sostituzione Perl per abbinare i caratteri di spazio e di rimuoverli. Il carattere "^" permette di specificare solo i caratteri all'inizio della stringa , il "$" consente di identificare solo quelli alla fine , oppure è possibile omettere questi e abbinare tutti gli spazi bianchi 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 ( $ ) {

my $ stringa = shift;

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

ritorno ;

}

Questa funzione utilizza l'operatore di sostituzione " s ///" per abbinare gli spazi bianchi e rimuoverli. La classe "\\ s " carattere corrisponde a tutti i caratteri di spazio e li sostituisce con nulla . In altre parole, le chiude. Restituisce una stringa che contiene i caratteri di spazio ovunque
3

digitare il seguente codice : .

Sub ltrim ( $ ) { my $

stringa = shift;

$ stringa = ~ s /^ \\ s + //;
ritorno

$ stringa ;

}

Questa funzione rimuove solo leader spazi bianchi prima di qualsiasi altro carattere . Il "^ \\ s ", dice per abbinare spazi bianchi solo fino al primo carattere di spazio non- bianco, poi rimuoverli
4

digitare il seguente codice : .

Sub rtrim ( $ ) {

my $ stringa = shift;

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

return $ stringa ;

}

Questa funzione rimuove solo spazi vuoti alla fine della stringa . La "s + $ ", dice per abbinare spazi bianchi solo dopo che tutti i caratteri di spazio non- bianchi , quindi rimuoverli.
5

Salvare il file di programma .