Foro - Perl en Español

por **BigBear** » 2013-12-13 19:14 @843

Hola. Estoy mejorando una función que hice para usar print con colores usando un módulo llamado Color::Output. Ahora le agregué otra función llamada texto_raro() que es como un efecto de texto corrido. El tema es que combinando los dos da errores con caracteres raros al contrario que cuando los uso por separado.

El código es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Color::Output;
Color::Output::Init;
use Time::HiRes "usleep";
 
sub texto_raro {
my @letras = split //, $_[0];
for(@letras) {
usleep(40_000);
print $_;       
}
}
 
printear("dsaads [+] hola mundo sdasdds\nsadsadsadsa [+]\nsadsadsadsa [+]","text");
 
sub printear {    #
    my $test;
    my $efecto;
    my $word = "colors=y\nefect=y\n";
 
    if ( $word =~ /colors=(.*)/ ) {
        $test = $1;
    }
    
    if ( $word =~ /efect=(.*)/ ) {
    $efecto = $1;
    }
    
    if ( $test eq "y" ) {
        if ( $_[1] eq "text" ) {
                        
                        if($efecto=~/y/) {
                        texto_raro("\x03" . $_[2] . $_[0] . "\x030");
                    } else {
            cprint( "\x03" . $_[2] . $_[0] . "\x030" );
                    }
        }
        elsif ( $_[1] eq "logos" ) {
          cprint( "\x03".$_[0]."\x030" );
        }
        elsif ( $_[1] eq "stdin" ) {
            if ( $_[3] ne "" ) {
                cprint( "\x03" . $_[2] . $_[0] . "\x030" . "\x03" . $_[3] );
                my $op = <stdin>;
                chomp $op;
                cprint("\x030");
                return $op;
            }
        }
        else {
            print "error\n";
        }
    }
    else { 
                   #
        if ( $_[1] eq "text" ) {
                        
                        if($efecto=~/y/) {
                        texto_raro($_[0]);
                    } else {
            print( $_[0] );
                    }
        }
        
         elsif ( $_[1] eq "logos" ) {
            print( $_[0] );
        }
        
        elsif ( $_[1] eq "stdin" ) {
            if ( $_[3] ne "" ) {
                                if($efecto=~/y/) {
                                texto_raro($_[0]);
                            } else { 
                cprint( $_[0] );
                }
                my $op = <stdin>;
                chomp $op;
                return $op;
            }
        } else {
                print "error\n";        
                }
    }
}    #Fin de printear
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Y me devuelve el resultado con caritas raras al estilo ascii. Recién acabo de intentar darles un ejemplo pero cuando hago copiar y pegar de la consola al navegador se muestra bien en el navegador (algo muy raro)

¿ Alguien puede ayudarme ?

Dentro de la función printear() haces referencia a $_[2] y $_[3], pero a la función solo le pasas dos argumentos.

Lo de que salgan caracteres extraños depende de muchas cosas. Lo principal es tener claro que los bytes que enviamos a la terminal, ésta los sepa interpretar, caracteres de escape y su codificación incluidos.

Si guardas el resultado a un archivo de texto, y luego lo vuelcas en hexadecimal, puedes ver el contenido real de lo que envías.

por **BigBear** » 2013-12-13 20:16 @886

Intenté usando "\Q$code\E" como me enseñaste para evitar caracteres raros y no funcionó.

por **explorer** » 2013-12-13 20:35 @899

"\Q...\E" no "evita" caracteres, solo los "escapa".

Foro - Perl en Español

Ayuda con print con colores

Ayuda con print con colores

Publicidad

Re: Ayuda con print con colores

Re: Ayuda con print con colores

Re: Ayuda con print con colores

¿Quién está conectado?