1
Abra un archivo de texto en blanco en cualquier editor de texto
2
Escriba la línea siguiente para iniciar el script de Perl : .
#! /usr /bin /perl
3
escriba las líneas siguientes para abrir el archivo que contiene el punto y coma ( " orig_file " ) y el archivo donde desea guardar los cambios ( "output" ) :
open ( FILE, " orig_file ") or die $ ;
abierto ( OUTFILE , " salida" ) or die $ ;
Reemplazar " orig_file " ! y " salida" con los nombres apropiados para su guión.
4
escriba las líneas siguientes para crear el bucle while que leerá el contenido del archivo original , cambie el punto y coma con dos puntos y escribir los cambios al archivo de salida :
while ( { $ _ = ~ s /;/:/g; impresión OUTFILE $ _ ; } reemplace las " : ." en "$ _ = ~ s /;/:/g; " con el carácter que desea reemplazar el punto y coma con escriba las líneas siguientes para cerrar los archivos abiertos : cercanos ( OUTFILE ) ; cercanos (FILE ) ; Guarde el archivo como " sub_semicolon.pl . " Escriba el comando " perl sub_semicolon.pl " en un símbolo del sistema para ejecutar el script.
Página 5
6
7