Perl niet over een ingebouwde functie die witruimte vanaf het begin of einde van een string verwijdert , maar u kunt de ingebouwde substitutie operator gebruiken om te presteren dezelfde functie . De substitutie operator maakt gebruik van standaard reguliere expressies om een gedeelte van een string met andere tekens te vervangen . Het verwijderen van witruimte kan helpen opruimen en valideren van input van de gebruiker , en je kunt het ook gebruiken om overbodige ruimte te verwijderen in een tekstbestand . Instructies
1 Open een leeg document met platte tekst
type 2 de volgende regels toe aan het Perl-script te starten : . !
# Bin /perluse strikte , gebruik waarschuwingen;
3 Typ de volgende regels toe aan een tekenreeks die witruimte bevat aan het begin en het einde van de string te maken , en druk de snaar om het scherm :
my $ orig_string = " Dit is een string ... " ; print $ orig_string . " \\ n " ;
Type 4 de volgende regels toe aan de witruimte te verwijderen uit het begin van de string en print de bewerkte string naar het scherm :
$ orig_string = ~ s /^ \\ s + //; druk $ orig_string ;
Type 5 de volgende regels toe aan de witruimte te verwijderen uit het einde van de string en print de bewerkte string naar het scherm : . .
$ orig_string = ~ s /\\ s + $ //; druk $ orig_string " \\ n " ;
6 Opslaan en sluit het bestand
< br >
|
