Slik fjerner alle hvite Spaces i en String med regulære uttrykk i Perl

I Perl, er et vanlig uttrykk ett eller flere tegn som brukes til å matche verdier i strenger, som bestemte bokstaver, kjennetegn eller tomrom. Du kan opprette funksjoner som bruker regulære uttrykk med Perl substitusjon operatøren å matche hvite mellomrom og fjerne dem. Den "^" tegn lar deg spesifisere bare tegn på begynnelsen av strengen, den "$" lar deg identifisere bare de på slutten, eller du kan utelate disse og matche alle mellomrom gjennom hele strengen.

Bruksanvisning

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

2 Skriv inn følgende kode:

sub trim ($) {

min $ string = skift;

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

returnere $ string;

}

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

3 Skriv inn følgende kode:

sub ltrim ($) {

min $ string = skift;

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

returnere $ string;

}

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

4 Skriv inn følgende kode:

sub RTRIM ($) {

min $ string = skift;

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

returnere $ string;

}

Denne funksjonen blir bare fjernet ledende mellomrom ved slutten av strengen. Den "s + $", sier for å matche mellomrom etter at alle de ikke-hvite mellomrom, og deretter fjerne dem.

5 Lagre programfilen.

Hint

• Du kan skrive en annen funksjon som fjerner hvite området fra både venstre og høyre ende av en streng, men lar de hvite mellomrom mellom tegn ved å ta vanlige uttrykk i ltrim og RTRIM funksjoner og bruke dem begge i en enkelt funksjon.