Hvordan å erstatte en streng i Perl

Perl ble opprinnelig designet av Larry Wall å lage rapporter fra tekstfiler. Perl er utviklet for å søke etter og redigere tekst. Hvis du ønsker å endre en streng i en variabel eller tekstfil til en annen, kan du bruke "s" -funksjonen. Denne funksjonen erstatter en gitt streng med tegn med en erstatning streng. Du kan gi en streng, eller du kan bruke vanlige uttrykk. Regulære uttrykk er en måte å representere ett eller flere tegn med et sett av metategn.

Bruksanvisning

1 Åpne et tomt tekstdokument i en tekst editor.

2 Skriv inn linjen

! / Usr / bin / perl

å starte Perl-skript.

3 Skriv linjene

min $ my_string;

$ My_string = "Middag var bra \ n";

print $ my_string;

å lage og skrive ut den variabelen som inneholder strengen "Middag var bra!"

4 Skriv inn linjen

$ My_string = ~ s / god / dårlig /;

å erstatte strengen "god" med strengen "dårlig".

5 Skriv inn linjen

print $ my_string;

for å skrive ut det nye innholdet i strengen til skjermen.

6 Lagre filen som "substitute.pl".

7 Skriv inn kommandoen "perl substitute.pl" ved ledeteksten for å utføre skriptet.