The 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 erstatning . Den redigerte teksten er plassert i en annen tekstfil og den opprinnelige filen forblir uendret. "Åpen " funksjonen åpner filene . Den " close" -funksjon lukker filene når du er ferdig med å bruke dem . Instruksjoner
en
Åpne en tom tekstfil i en tekst editor
2
Skriv inn følgende linje for å starte Perl script : .
#! /usr /bin /perl
3
Skriv inn følgende linjer å åpne filen som inneholder semikolon ( " orig_file ") og filen der du vil lagre endringene ( "output " ) : en
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 output file : en
while ( )
{
$ _ = ~ s /;/:/g;
print utfil $ _ ;
}
Erstatt ":" . på " $ _ = ~ s /;/:/g; " med hva tegn du ønsker å erstatte semikolon med
5
Skriv inn følgende linjer for å lukke åpne filer :
nære ( utfil ) ;
nære ( FIL ),
6
Lagre filen som " sub_semicolon.pl . "
7
Skriv kommandoen " perl sub_semicolon.pl " i en ledetekst for å utføre skriptet .