Foro - Perl en Español

[cmp]

Hola a todos.
Me gustaría saber, si sería muy complicado hacer un script en Perl que dada una palabra o trozo de texto, lo buscase en el contenido de un archivo de texto y lo reemplazara por otra palabra dada.

Si sabéis donde puedo encontrar información para hacerlo os lo agradecería.

Saludos.

[explorer]

Pues no... no es complicado...

De hecho, eso es una operación tan normal en Perl que se puede hacer sin escribir ningún programa: desde la misma línea de comandos, con los pies.

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

perl -p -i -e 's/esto-es-lo-que-busco/esto-es-lo-que-pongo/g;' fichero.txt

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

El funcionamiento se basa en usar opciones en Perl:
* -p: crea un bucle por todas las líneas del fichero.txt e imprime la línea al final. Es como si hiciéramos:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

while ( <> ) {   # Leer la línea del fichero de entrada y guardarla en $_
    # ... resto del programa ... podemos modificar $_, por ejemplo
    print;   # Imprime la línea almacenada en $_
}

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

* -i: las modificaciones que hagamos en las líneas del fichero se almacenan en el propio fichero
* -e: ejecutar el miniprograma que viene a continuación:
* s/// : es el operador de sustitución. Busca algo y lo sustituye por otro. Eso lo repite (/g) a lo largo de toda la línea, que por defecto será la que se encuentre en $_

Y nada más.

Más información en perlrun.

Un ejemplo con el módulo Sysadm::Install, aquí.

[cmp]

Muchisimas gracias explorer.
Como ves, soy novato, novato, pero quiero aprender poco a poco. El problema es que se me exige (como en ese caso) hacer cosas que me pierdo.
Gracias de nuevo.

[explorer]

Bienvenido a los foros de Perl en Español... y si estás empezando, quizás incluso sea más fácil no mirar el tema del perlrun, sino intentar hacer un programa pequeño que abra el fichero, lo lea línea a línea, que haga la sustitución y el resultado lo deja en otro fichero. Por ejemplo.

[cmp]

Gracias por la bienvenida.
Me ha sido de gran utilidad tu respuesta, ahora solo tengo una pequeña duda:
Si el texto de reemplazo (esto-es-lo-que-pongo) contiene un carácter especial, como en mi caso la arroba (@), éste (y lo que viene detrás) no se ve reflejado en la modificación del fichero. Supongo que tiene que ver con que la @ se utiliza para definir arrays.
¿Qué debo hacer para que me coja la @?

Gracias y saludos.

P.D: En teoría el manual pone (refiriéndose a cadenas de caracteres): se puede definir el contenido entre comillas simples, no interpretándose ningún carácter especial contenido entre ellas.

Pero no funciona...

[explorer]

Prueba a 'escapar' el significado de la '@', con un '\' delante: '\@'.

A mí sí que me funciona escaparlo con comilla simple en la expresión regular:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#!perl -l

$x = '[email protected]';

$x =~ s'@' at 'g;

print $x;

__OUTPUT__
email at host.com

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4