Foro - Perl en Español

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

No lo he probado, pero estas dos opciones parecen buenas.
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;

Más información sobre Image::ANSI.

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.

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

En cualquier linux moderno, te vale que, siendo root del sistema, ejecutes el comando siguiente:

Código: Seleccionar todo

cpan Image::ANSI

Si no puedes ser root, pruébalo siendo un usuario normal.
Si el comando cpan no está, usa esto:

Código: Seleccionar todo

perl -MCPAN -e 'install Image::ANSI'

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.

¿No has probado la segunda solución?

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.

No, me refería a la segunda solución de filtrado. ¿No ha funcionado?

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.