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.
-
- Publicidad
Buscar y remplazar texto en un archivo de texto plano
6 mensajes
• Página 1 de 1
Buscar y remplazar texto en un archivo de texto plano
por cmp » 2007-05-28 10:49 @492
- cmp
- Perlero nuevo
- Mensajes: 13
- Registrado: 2007-05-28 10:43 @488
Publicidad
por explorer » 2007-05-28 11:41 @528
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.
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:
* -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í.
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.
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:
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 $_
}
# ... 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í.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2007-05-28 12:29 @561
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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por cmp » 2007-05-29 06:17 @304
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...
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...
- cmp
- Perlero nuevo
- Mensajes: 13
- Registrado: 2007-05-28 10:43 @488
por explorer » 2007-05-29 08:17 @387
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:
A mí sí que me funciona escaparlo con comilla simple en la expresión regular:
Using perl Syntax Highlighting
#!perl -l
$x = '[email protected]';
$x =~ s'@' at 'g;
print $x;
__OUTPUT__
email at host.com
$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
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
6 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 23 invitados