Hola,
lo primero presentarme, que soy nuevo por aquí.
No consigo encontrar la manera de reemplazar código ANSI desde perl, bueno, en realidad quiero eliminar todas las referencias ANSI que tengo dentro de un fichero de texto.
No se si alguien me puede ayudar, que me estoy volviendo loco de buscar la solución.
Muchas gracias
-
- Publicidad
Reemplazar código ANSI
12 mensajes
• Página 1 de 2 • 1, 2
Reemplazar código ANSI
por ASTURIANO » 2006-04-25 08:20 @389
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
Publicidad
por explorer » 2006-04-25 11:00 @500
No lo he probado, pero estas dos opciones parecen buenas.
Primera, con un módulo:
Segunda, filtrando todo el texto, por líneas:
Primera, con un módulo:
- Código: Seleccionar todo
use Image::ANSI;
# Leemos el fichero con el ansi
my $fichero = Image::ANSI->new( file => 'fichero.ans' );
my $texto = $fichero->as_ascii();
print $texto;
Segunda, filtrando todo el texto, por líneas:
- Código: Seleccionar todo
open ANS,'<fichero.ans'
or die "ERROR: No puedo abrirlo: $!\n";
my ($linea,$texto);
while ( $linea = <ANS> ) {
$linea =~ s/\033\[(?:\d+(?:;\d+)*)*m//go;
$texto .= $linea;
}
close ANS;
print $texto;
Última edición por explorer el 2006-04-26 09:32 @439, editado 1 vez en total
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 ASTURIANO » 2006-04-25 14:06 @629
Muchas gracias explorer.
Hasta mañana no puedo probarlo, lo del módulo parace buena.
El problema de filtrar es que no consigo reemplazar los símbolos ^[, por ejemplo.
De todos modos mañana a primera hora lo pruebo y te cuento.
Hasta mañana no puedo probarlo, lo del módulo parace buena.
El problema de filtrar es que no consigo reemplazar los símbolos ^[, por ejemplo.
De todos modos mañana a primera hora lo pruebo y te cuento.
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
por ASTURIANO » 2006-04-26 03:00 @167
Hola explorer.
Tengo otro problema; no soy capaz de instalar el módulo, (soy bastante nuevo) aunque sea abusar un poco te agradecería si me puedes indicar cómo se hace.
Estoy utilizando Fedora Core 4 y Perl5, he descargado el módulo y desempaquetado y descomprimido en un directorio común. Sigo las indicaciones con build pero no me funciona así que utilizo make, pero el test falla.
No se si debo mover el módulo a otro directorio.
Saludos y gracias
Tengo otro problema; no soy capaz de instalar el módulo, (soy bastante nuevo) aunque sea abusar un poco te agradecería si me puedes indicar cómo se hace.
Estoy utilizando Fedora Core 4 y Perl5, he descargado el módulo y desempaquetado y descomprimido en un directorio común. Sigo las indicaciones con build pero no me funciona así que utilizo make, pero el test falla.
No se si debo mover el módulo a otro directorio.
Saludos y gracias
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
por explorer » 2006-04-26 05:03 @252
En cualquier linux moderno, te vale que, siendo root del sistema, ejecutes el comando siguiente:
Si el comando cpan no está, usa esto:
- Código: Seleccionar todo
cpan Image::ANSI
Si el comando cpan no está, usa esto:
- Código: Seleccionar todo
perl -MCPAN -e 'install Image::ANSI'
Última edición por explorer el 2006-07-13 05:38 @276, editado 1 vez en total
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 ASTURIANO » 2006-04-26 06:06 @296
Muchas gracias explorer.
Al final lo conseguí filtrando, encontré la combinación de teclas exacta <ctrl+v><ctrl+[>.
De todos modos he seguido investigando lo de los módulos, (por curiosidad y porque seguro que lo necesitaré en otra ocasión) y creo que para poder usar CPAN tengo que tener salida a internet desde el servidor y en este momento no la tengo.
Muchas gracias de nuevo.
Al final lo conseguí filtrando, encontré la combinación de teclas exacta <ctrl+v><ctrl+[>.
De todos modos he seguido investigando lo de los módulos, (por curiosidad y porque seguro que lo necesitaré en otra ocasión) y creo que para poder usar CPAN tengo que tener salida a internet desde el servidor y en este momento no la tengo.
Muchas gracias de nuevo.
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
por ASTURIANO » 2006-04-26 09:08 @422
Hola de nuevo,
me imagino que te refieres a la segunda solución para instalar los módulos, la acabo de probar, pero me pide que incluya la configuración del proxy de salida y no puedo salir a internet desde esta máquina.
De todos modos a ver si consigo la salida porque es útil también para actualizar rpms.
Muchas gracias por la ayuda.
me imagino que te refieres a la segunda solución para instalar los módulos, la acabo de probar, pero me pide que incluya la configuración del proxy de salida y no puedo salir a internet desde esta máquina.
De todos modos a ver si consigo la salida porque es útil también para actualizar rpms.
Muchas gracias por la ayuda.
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
por ASTURIANO » 2006-04-27 04:38 @234
Si, cuando me dices filtrar (perdona, pero soy bastante novato todavía), me imagino que te refieres a utilizar los tr/// o s///, así es como conseguí quitar los símbolos y cadenas que me estorbaban.
Acabo de conseguir salida a internet, así que seguiré probando lo de los módulos y dándote la lata, je,je...
Muchas gracias.
Acabo de conseguir salida a internet, así que seguiré probando lo de los módulos y dándote la lata, je,je...
Muchas gracias.
- ASTURIANO
- Perlero nuevo
- Mensajes: 7
- Registrado: 2006-04-25 08:17 @387
12 mensajes
• Página 1 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados