July 11
In Perl, una espressione regolare è uno o più caratteri utilizzati per abbinare i valori in stringhe, come 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 rimuoverli. Il carattere "^" permette di specificare solo 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.
1 Aprire un file di programma Perl, e inserire il cursore all'inizio.
2 Digitare il seguente codice:
ritaglio di sub ($) {
il mio $ string = shift;
$ String = ~ s / \ s + // g;
return $ string;
}
Questa funzione utilizza l'operatore di sostituzione "s ///" per abbinare gli spazi bianchi e rimuoverli. Il "\ s" classe di caratteri corrisponde a tutti i caratteri di spazio e li sostituisce con nulla. In altre parole, li elimina. Si restituisce una stringa che contiene caratteri di spazio bianco da nessuna parte.
3 Digitare il seguente codice:
sub ltrim ($) {
il mio $ string = shift;
$ String = ~ s / ^ \ s + //;
return $ string;
}
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 ($) {
il mio $ string = shift;
$ String = ~ s / \ s + $ //;
return $ string;
}
Questa funzione rimuove solo leader spazi bianchi alla fine della stringa. La "s + $", dice per abbinare spazi bianchi solo dopo che tutti i caratteri di spazio non-bianchi, poi rimuoverli.
5 Salvare il file di programma.