[Perl] Funcion printear()

BigBear · Julio 03, 2011, 09:44:33 PM

Hola a todos , hoy les traigo una funcion para poder
usar colores en perl para mostrar en el texto que queremos

Código: perl


#By Doddy H

use Color::Output;
Color::Output::Init;

sub printear {
if ($_[1] eq "text") {
cprint("\x03".$_[2].$_[0]."\x030\n");
}
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";
}
}

Sintasis

Código: perl


printear("text","text/stdin","color text","color output")

Ejemplos de uso

Con texto normal

Código: perl


printear("hola","text","10","5");

Texto con entrada de teclado

Código: perl


my $d  = printear("nombre : ","stdin","6","2");
print "pusiste $d\n";

[Perl] Funcion printear()

BigBear

Julio 03, 2011, 09:44:33 PM Ultima modificación: Marzo 14, 2015, 10:01:45 AM por Expermicid