Perl: Come sostituire virgola

September 26

Il linguaggio di programmazione Perl è stato originariamente progettato per creare report. Contiene potenti funzioni per manipolare file di testo. Ad esempio, è possibile sostituire un carattere (come ad esempio un punto e virgola) o una stringa di caratteri con un'altra. La funzione di "s" è utilizzato per la sostituzione o la sostituzione. Il testo modificato viene inserito in un secondo file di testo e il file originale rimane invariato. La funzione "aperta" apre i file. La funzione di "chiudere" chiude i file quando avete finito di usarli.

istruzione

1 Aprire un file di testo vuoto in qualsiasi editor di testo.

2 Digitare la seguente riga per avviare lo script Perl:

! / usr / bin / perl

3 Digitare le righe seguenti per aprire il file che contiene il punto e virgola ( "orig_file") e il file in cui si desidera salvare le modifiche ( "output"):

open (FILE, "orig_file") or die $ !;

aperto (OUTFILE, "output") or die $ !;

Sostituire "orig_file" e "uscita" con i nomi appropriati per lo script.

4 Digitare le righe seguenti per creare il ciclo while che leggerà il contenuto del file originale, sostituire le virgole con due punti e scrivere le modifiche al file di output:

while (<file>)

{

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

stampare OUTFILE $ _;

}

Sostituire il ":" in "$ _ = ~ s /; /: / g;" con qualsiasi carattere che si desidera sostituire il punto e virgola con.

5 Digitare le seguenti righe di chiudere i file aperti:

close (OUTFILE);

vicino (FILE);

6 Salvare il file come "sub_semicolon.pl."

7 Digitare il comando "sub_semicolon.pl perl" al prompt dei comandi per eseguire lo script.