color_print_wine

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     color_print_wine
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-02-27 16:02:02
   5 ###APPVER:      0.1
   6 ###APPDESC:     color_print_wine
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  color_print_wine
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_required($0,@ARGV));
  19 #exit 0 if(help_even_empty($0,@ARGV));
  20 use Term::ANSIColor;
  21
  22 my $f=color("yellow");
  23 my $k=color("cyan");
  24 my $r=color("reset");
  25 while(<>) {
  26     s/(['"])([^\1]+)\1/$1$f$2$r$1/g;
  27     s/(\w*(:?native|builtin)\w*)/$k$1$r/g;
  28     print STDERR $_;
  29 }