Perl: Hvordan erstatte Semikolon

Perl programmeringsspråk ble opprinnelig utviklet for å lage rapporter. Den inneholder kraftige funksjoner for å manipulere tekstfiler. For eksempel kan du erstatte et tegn (for eksempel et semikolon) eller tegnstreng med en annen. Den "s" funksjonen brukes for substitusjon eller utskifting. Den redigerte teksten er plassert i en annen tekstfil og den opprinnelige filen forblir uendret. Den "åpne" -funksjonen åpner filene. Den "close" funksjon lukker filene når du er ferdig med å bruke dem.

Bruksanvisning

1 Åpne en tom tekstfil i en tekst editor.

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

! / usr / bin / perl

3 Skriv inn følgende linjer for å åpne filen som inneholder semikolon ( "orig_file") og den filen der du vil lagre endringene ( "output"):

open (FILE "orig_file") eller dø $ !;

åpen (utfil, "output") eller dø $ !;

Erstatt "orig_file" og "output" med de riktige navnene for skriptet.

4 Skriv inn følgende linjer for å skape mens loop som vil lese innholdet i den opprinnelige filen, erstatte semikolon med kolon og skrive endringene til utdatafilen:

while (<FILE>)

{

$_ =~ s/;/:/g;

skrive utfil $ _;

}

Bytt ut ":" in "$ _ = ~ s /; /: / g;" med hva karakter du ønsker å erstatte semikolon med.

5 Skriv inn følgende linjer for å lukke åpne filer:

close (OUTFILE);

close (FIL);

6 Lagre filen som "sub_semicolon.pl."

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