Hvordan rydde opp Start og slutten av en streng i Perl

Perl har ikke en innebygd funksjon som fjerner mellomrom fra begynnelsen eller slutten av en streng, men du kan bruke den innebygde substitusjon operatøren å utføre samme funksjon. Substitusjons Operatøren bruker standard regulære uttrykk for å erstatte en del av en streng med andre figurer. Fjerne mellomrom kan bidra til å rydde opp og validere brukerundersøkelser, og du kan også bruke den til å fjerne unødvendig plass i en tekstfil.

Bruksanvisning

1 Åpne et tomt vanlig tekstdokument.

2 Skriv inn følgende linjer for å starte Perl-skript:

! Bin / perl

bruke strenge;
bruke advarsler;

3 Skriv inn følgende linjer for å skape en streng som inneholder mellomrom på begynnelsen og slutten av strengen, og skrive ut strengen til skjermen:

min $ orig_string = "Dette er en streng ...";
print $ orig_string "\ n".;

4 Skriv inn følgende linjer for å fjerne mellomrom fra begynnelsen av strengen og skrive det redigerte strengen til skjermen:

$ Orig_string = ~ s / ^ \ s + //;
print $ orig_string;

5 Skriv inn følgende linjer for å fjerne mellomrom fra slutten av strengen og skrive det redigerte strengen til skjermen:

$ Orig_string = ~ s / \ s + $ //;
print $ orig_string "\ n".;

6 Lagre og lukk filen.

Hint

• Bruk substitusjon operatøren for å fjerne eventuelle spesifiserte tegn fra begynnelsen eller slutten av en streng.