Cómo sustituir una cadena en Perl

Perl fue diseñado originalmente por Larry Wall para crear informes a partir de archivos de texto. Perl está diseñado para buscar y editar texto. Si desea cambiar una cadena en un archivo de variables o texto a otro, puede utilizar la función de "s". Esta función sustituye a una determinada cadena de caracteres con una cadena de reemplazo. Puede proporcionar una cadena literal, o puede utilizar expresiones regulares. Las expresiones regulares son una forma de representar uno o más caracteres con un conjunto de meta-caracteres.

Instrucciones

1 Abra un documento de texto en blanco en cualquier editor de texto.

2 Escriba la línea

! / Usr / bin / perl

para iniciar el script Perl.

3 Escriba las líneas

mi $ mi_cadena;

$ Mi_cadena = "La cena era bueno! \ N";

print $ mi_cadena;

para crear e imprimir la variable que contiene la cadena "La cena fue buena!"

4 Escriba la línea

$ Mi_cadena = ~ s / bueno / malo /;

para sustituir la cadena "buena" con la cadena "malo".

5 Escriba la línea

print $ mi_cadena;

para imprimir los nuevos contenidos de la cadena en la pantalla.

6 Guarde el archivo como "substitute.pl".

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