I Perl, er et regulært udtryk et eller flere tegn , der anvendes til at matche værdier i strygere , såsom bestemte bogstaver, identifikationsmaerker eller hvidt rum . Du kan oprette funktioner, der bruger regulære udtryk med Perl substitution operatør til at matche blanktegn og fjerne dem. Den " ^" tegnet lader dig angive kun tegn i starten af strengen er " $" lader dig kun identificere dem i slutningen, eller du kan udelade disse og matche alle hvide rum i hele strengen. Instruktioner
1
Åbn en Perl program fil og indsætte markøren i starten
2
Indtast følgende kode : .
Sub trim ( $ ) {
min $ string = skift;
$ string = ~ s /\\ s + //g;
tilbagevenden $ string ,
} < br >
Denne funktion bruger substitution operatør " s ///" for at matche de hvide rum og fjerne dem. Den " \\ s" tegnklasse matcher alle blanktegn og erstatter dem med ingenting. Med andre ord , så fjerner dem . Den returnerer en streng , der ikke indeholder blanktegn overalt
3
Indtast følgende kode : .
Sub ltrim ($) {
min $ string = skift;
$ string = ~ s /^ \\ s + //,
tilbagevenden $ string ,
}
Denne funktion fjerner kun fører hvide mellemrum før alle andre tegn. Den " ^ \\ s " siger at matche hvide rum kun indtil den første ikke- hvide rum karakter, så fjerne dem
4
Indtast følgende kode : .
Sub rtrim ( $ ) {
min $ string = skift;
$ string = ~ s /\\ s + $ //,
tilbagevenden $ string ,
} < br >
Denne funktion fjerner kun førende hvide rum i slutningen af strengen. Den " s + $ ", siger at matche hvide rum , når alle de ikke- blanktegn , derefter fjerne dem .
5.
Gem programfilen.
< br >