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.