In Perl , een reguliere expressie is van een of meer tekens worden gebruikt om waarden in tekenreeksen , zoals specifieke brieven , herkenningstekens of witte ruimte passen. U kunt functies die reguliere expressies gebruiken met de Perl substitutie operator witruimtetekens match en verwijder ze te maken . De " ^ " teken kunt u alleen tekens opgeven aan het begin van de string , de " $ " laat u te identificeren alleen die op het einde , of je deze kunt weglaten en match alle witte ruimten hele string. Instructies
1 Open een Perl-programma bestand , en plaats de cursor aan het begin
Typ de volgende code 2 : . Sub
bekleding ( $ ) {
mijn $ string = shift;
$ string = ~ s /\\ s + //g ; terugkeer
$ string ;
} < br > Deze functie maakt gebruik van de substitutie- operator " s ///" aan de witte ruimtes passen en verwijder ze . De " \\ s " character class komt overeen met alle witruimtetekens en vervangt ze met niets . Met andere woorden , verwijdert deze . Het geeft een tekenreeks die geen witruimtetekens overal bevat
3 Typ de volgende code : . Sub ltrim
( $ ) {
mijn $ snaar = shift ;
$ string = ~ s /^ \\ s + //; return $ string
; }
Deze functie verwijdert alleen leidt witte ruimten vóór alle andere personages . De " ^ \\ s " zegt tegen witte ruimtes passen slechts tot de eerste niet -blanco teken , verwijder ze dan
4 Typ de volgende code : . Sub rtrim
( $ ) {
mijn $ string = shift;
$ string = ~ s /\\ s + $ //; terugkeer
$ string ;
} < br > Deze functie verwijdert alleen leidt witte spaties aan het einde van de string . De ' s + $ " zegt tegen witte ruimtes passen nadat alle niet - witruimte tekens , verwijder ze .
5 Sla het programma bestand .
< br >
|
