pl_test

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     pl_test
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     Thu Apr  3 05:58:20 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     pl_test
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  pl_test
   9 ###APPOPTION:
  10 use strict;
  11 use lib $ENV{XR_PERL_MODULE_DIR};
  12
  13 use MyPlace::Script::Usage qw/help_required/;
  14 exit 0 if(help_required($0,@ARGV));
  15 #use MyPlace::App::Usage qw/help_even_empty/;
  16 #exit 0 if(help_even_empty($0,@ARGV));
  17
  18
  19 use MyPlace::ColorPrint;
  20 color_print(*STDOUT,'red',"Hello, World!\n");
  21 color_print(\*STDOUT,'yellow',"Hello, World!\n");
  22 color_print("green","Hello, World!\n");