Perl har inte en inbyggd funktion som tar bort mellanslag från början eller slutet av en sträng , men du kan använda den inbyggda substitution operatören att utföra samma funktion. Den substitution Operatören använder vanliga reguljära uttryck för att ersätta en del av en sträng med andra karaktärer . Ta bort blanktecken kan hjälpa till att städa upp och validerar input , och du kan även använda den för att ta bort onödig plats i en textfil . Instruktioner
1
Öppna ett tomt vanligt textdokument
2
Skriv följande rader för att starta Perl-skript : . !
# Bin /perluse strikt , varningar ,
3
Skriv följande rader för att skapa en sträng som innehåller mellanslag i början och slutet av strängen , och skriv ut strängen på skärmen :
my $ orig_string = " Detta är en sträng ... " ; ut $ orig_string . " \\ n ";
4
Skriv följande rader för att ta bort mellanslag från början av strängen och skriva ut den redigerade strängen till skärmen :
$ orig_string = ~ s /^ \\ s + //, print $ orig_string ,
5
Skriv följande rader för att ta bort mellanslag från slutet av strängen och skriva ut den redigerade strängen till skärmen : . .
$ orig_string = ~ s /\\ s + $ //, print $ orig_string " \\ n ";
6
Spara och stäng filen
Addera
