I Perl , er et vanlig uttrykk ett eller flere tegn som brukes for å matche verdier i strenger , for eksempel bestemte bokstaver , kjennetegn eller mellomrom . Du kan lage funksjoner som bruker regulære uttrykk med Perl substitusjon operatøren å matche hvite mellomrom og fjerne dem . Den " ^" karakter kan du angi bare tegn på begynnelsen av strengen , lar den "$" du identifiserer bare de på slutten, eller du kan utelate disse og matche alle hvite områder i hele strengen . Instruksjoner
en

Åpne et Perl program fil , og sett markøren i begynnelsen
2

Skriv inn følgende kode : .

Sub trim ( $ ) {

min $ string = shift ;

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

retur $ string ;

}

Denne funksjonen bruker substitusjon operatør " s ///" for å matche de hvite feltene og fjerne dem . Den " \\ s " tegnklasse slår alle hvite mellomrom og erstatter dem med ingenting. Med andre ord , det fjerner dem . Den returnerer en streng som inneholder ingen hvite mellomrom overalt
3

Skriv inn følgende kode : .

Sub ltrim ($) {

min $ string = shift ;

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

retur $ string ;

}

Denne funksjonen fjerner bare fører hvite mellomrom før eventuelle andre tegn. Den " ^ \\ s " sier å matche mellomrom bare frem til første ikke-hvite mellomrom , deretter fjerne dem
4

Skriv inn følgende kode : .

Sub RTRIM ( $ ) {

min $ string = shift ;

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

retur $ string ;

}

Denne funksjonen fjerner bare ledende mellomrom på slutten av strengen . Den " s + $" sier å matche mellomrom bare etter alle de ikke-hvite mellomrom , deretter fjerne dem .
5

Lagre programfilen.