Perl ikke har en innebygd funksjon som fjerner mellomrom fra begynnelsen eller slutten av en streng , men du kan bruke den innebygde substitusjon operatøren å utføre den samme funksjon . Substitusjon operatøren bruker standard regulære uttrykk for å erstatte en del av en streng med andre figurer . Fjerne mellomrom kan bidra til å rydde opp og validere brukerundersøkelser, og du kan også bruke den til å fjerne unødvendig plass i en tekstfil . Instruksjoner
en

Åpne en tom vanlig tekstdokument
2

Skriv inn følgende linjer for å starte Perl-skript : . !

# Bin /perluse streng , bruke advarsler ,
3

Skriv inn følgende linjer for å skape en streng som inneholder mellomrom i begynnelsen og slutten av strengen , og skrive ut strengen til skjermen : en < p> min $ orig_string = " Dette er en streng ... "; print $ orig_string . " \\ n ";
4

Skriv inn følgende linjer for å fjerne mellomrom fra begynnelsen av strengen og skrive ut det redigerte strengen til skjermen : en < p > $ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5

Skriv inn følgende linjer for å fjerne mellomrom fra slutten av strengen og skrive ut det redigerte strengen til skjermen : . .

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

Lagre og lukk filen