Perl har ikke en indbygget funktion , der fjerner whitespace fra begyndelsen eller slutningen af en streng , men du kan bruge den indbyggede substitution operatør til at udføre den samme funktion . Substitutionen Operatøren bruger standard regulære udtryk til at erstatte en del af en streng med andre karakterer . Fjernelse mellemrum kan hjælpe med at rense op og validere bruger-input, og du kan også bruge den til at fjerne unødvendig plads i en tekstfil . Instruktioner
1
Åbn en tom almindelig tekst dokument
2
skrive følgende linjer til at starte Perl script: . !
# Bin /perluse streng , bruge advarsler
3
skrive følgende linjer til at skabe en streng, der indeholder mellemrum i starten og slutningen af strengen , og udskrive strengen til skærmen : Hej < p> min $ orig_string = "Dette er en streng ... " print $ orig_string . " \\ n ";
4
skrive følgende linjer til at fjerne whitespace fra begyndelsen af strengen og udskrive den redigerede strengen til skærmen : Hej < p> $ orig_string = ~ s /^ \\ s + //, print $ orig_string ,
5
skrive følgende linjer at fjerne whitespace fra slutningen af strengen og udskrive den redigerede strengen til skærmen : . .
$ orig_string = ~ s /\\ s + $ //, print $ orig_string "\\ n";
6
Gem og luk filen
< br >