Bueno, aquí una función para colorear la salida en terminales GNU/Linux de vuestros scripts Perl. Estoy trabajando en una nueva versión donde incluyo a las terminales de Windows también.
Using perl Syntax Highlighting
- #color your outputs in Gnu/Linux terminals
- #this function only works in Linux terminals, but working in new color_print() function, to
- #make it work on Windows terminals
- #
- #
- #HOW TO USE-->color_print($color_of_text,$text);
- #by n3td1srupt
- #Twiiter-->@n3td1srupt
- $var='\e[0m';
- sub color_print{
- %colors=(red=>'\e[0;31m',
- black=>'\e[0;30m',
- blue=>'\e[0;34m',
- green=>'\e[0;32m',
- yellow=>'\e[1;33m',
- white=>'\e[1;37m',
- );
- $color=shift;
- $texto=shift;
- if (defined $colors{$color})
- {
- $result="$colors{$color}$texto$color_pattern";
- print `echo -e "$result"`;
- }else{
- print "Color not found,avaible colors:red,black,blue,green,yellow,white\n";
- }
- }
- print "Input color of the text[red,white,black,blue,yellow,green]\n";
- $color_input=<STDIN>;
- chop $color_input;
- print "Input the text\n";
- $text_input=<STDIN>;
- chop $text_input;
- color_print($color_input,$text_input);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
