[Perl] Funcion printear

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#By pr0xXx0r 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 {

Sintasis

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

Ejemplos de uso

Con texto normal

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

Texto con entrada de teclado

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