Perl: Cómo reemplazar punto y coma

El lenguaje de programación Perl fue diseñado originalmente para crear informes. Contiene potentes funciones para manipular archivos de texto. Por ejemplo, se puede sustituir un carácter (como un punto y coma) o cadena de caracteres con otra. La función de "s" se utiliza para la sustitución o reemplazo. El texto editado se coloca en un segundo archivo de texto y el archivo original permanece sin cambios. La función "Abrir" abre los archivos. La función de "cierre" cierra los archivos cuando haya terminado de usarlos.

Instrucciones

1 Abrir un archivo de texto sin formato 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 los puntos y comas ( "orig_file") y el archivo en el que desea guardar los cambios ( "salida"):

open (FILE, "orig_file") o morir $ !;

abierta (OUTFILE, "salida") o morir $ !;

Reemplazar "orig_file" y "salida" con los nombres apropiados para la secuencia de comandos.

4 Escriba las siguientes líneas para crear el bucle while que leerá el contenido del archivo original, vuelva a colocar los puntos y comas con dos puntos y escribir los cambios en el archivo de salida:

while (<ARCHIVO>)

{

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

imprimir OUTFILE $ _;

}

Vuelva a colocar el ":" en "$ _ = ~ s /; /: / g;" con el carácter que desea reemplazar el punto y coma con.

5 Escriba las líneas siguientes para cerrar los archivos abiertos:

close (OUTFILE);

cerrar (ARCHIVO);

6 Guarde el archivo como "sub_semicolon.pl."

7 Escriba el comando "sub_semicolon.pl Perl" en la línea de comandos para ejecutar el script.