The Perl programmeringsspråk utformades ursprungligen för att skapa rapporter . Det innehåller kraftfulla funktioner för att manipulera textfiler . Till exempel kan du byta ut ett tecken ( t.ex. semikolon ) eller en teckensträng med en annan . Den " s " -funktionen används för substitution eller utbyte . Den redigerade texten är placerad i en andra textfil och den ursprungliga filen förblir oförändrad. Den " öppna " -funktionen öppnar filerna . Den " close " -funktionen stänger filerna när du är klar med dem . Instruktioner
1
Öppna en tom textfil i valfri textredigerare
2
Skriv följande rad för att starta Perl-skript : .
# ! /usr /bin /perl
3
Skriv följande rader för att öppna filen som innehåller semikolon ( " orig_file " ) och filen där du vill spara ändringarna ( "output " ) :
open ( FILE , " orig_file " ) or die $ ,
open ( UTFIL , "output " ) or die $ ,
Ersätt " orig_file " ! och "output " med lämpliga namn för ditt manus .
4
skriv följande rader för att skapa while loop som kommer att läsa innehållet i den ursprungliga filen , ersätta semikolon med kolon och skriv ändringarna till utgången filen :
samtidigt ( ) katalog {
$ _ = ~ s /;/:/g ;
print UTFIL $ _ ;
}
Ersätt " : " . in " $ _ = ~ s /;/:/g , " med vilken karaktär du vill ersätta semikolon med
5
Skriv följande rader för att stänga öppna filer :
nära ( UTFIL ) ,
nära ( FILE ) ,
6
Spara filen som " sub_semicolon.pl . "
7
Skriv kommandot " perl sub_semicolon.pl " vid en kommandotolk för att exekvera skriptet .
