• Publicidad

Colorea la salida de tus códigos con color_print()[Perl]

¿Estás desarrollando un proyecto, o piensas hacerlo? Pon aquí tu propuesta, lo más seguro es que alguien esté interesado en ayudarte.

Colorea la salida de tus códigos con color_print()[Perl]

Notapor n3td1srupt » 2013-01-28 04:37 @234

Hola comunidad...

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.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #color your outputs in Gnu/Linux terminals
  2. #this function only works in Linux terminals, but working in new color_print() function, to
  3. #make it work on Windows terminals
  4. #
  5. #
  6. #HOW TO USE-->color_print($color_of_text,$text);
  7. #by n3td1srupt
  8. #Twiiter-->@n3td1srupt
  9.  
  10.  
  11. $var='\e[0m';
  12. sub color_print{
  13.  
  14. %colors=(red=>'\e[0;31m',
  15. black=>'\e[0;30m',
  16. blue=>'\e[0;34m',
  17. green=>'\e[0;32m',
  18. yellow=>'\e[1;33m',
  19. white=>'\e[1;37m',
  20. );
  21.  
  22.  
  23.  
  24.  
  25. $color=shift;
  26. $texto=shift;
  27.  
  28. if (defined $colors{$color})
  29. {
  30. $result="$colors{$color}$texto$color_pattern";
  31. print `echo -e "$result"`;
  32.  
  33. }else{
  34. print "Color not found,avaible colors:red,black,blue,green,yellow,white\n";
  35.         }
  36.  
  37. }
  38.  
  39.  
  40. print "Input color of the text[red,white,black,blue,yellow,green]\n";
  41.  
  42. $color_input=<STDIN>;
  43. chop $color_input;
  44.  
  45. print "Input the text\n";
  46. $text_input=<STDIN>;
  47. chop $text_input;
  48.  
  49. color_print($color_input,$text_input);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
n3td1srupt
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2012-10-28 15:13 @675

Publicidad

Volver a Proyectos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron