printarg

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     printarg
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Fri Oct  5 02:42:22 2007
   5 ###APPVER:      0.1
   6 ###APPDESC:     just print arguments to stdout with format
   7 ###APPUSAGE:    [Format] [Args...]
   8 ###APPEXAMPLE:  printarg "%s\t%s" -test 1 -no 2
   9 ###APPOPTION:
  10 use strict;
  11 $ARGV[0]="-h" unless(@ARGV);
  12 foreach(@ARGV){
  13     exit(system("plhelp",$0,@ARGV)) if($_ eq "-h" || $_ eq "--help");
  14 }
  15
  16 my $format="%s\t=\t%s\n";
  17 if($ARGV[0] =~ m/^.*%.*s.*%.*s.*/g) {
  18     $format=$ARGV[0];
  19     $format =~ s/\\n/\n/g;
  20     $format =~ s/\\t/\t/g;
  21     shift @ARGV;
  22 }
  23
  24 my %ARGS;
  25 my $last="";
  26 my @NOARG;
  27
  28 foreach(@ARGV) {
  29     if(m/^-/) {
  30         $ARGS{$_}="true";
  31         $last=$_;
  32     }
  33     else {
  34         if($last) {
  35             $ARGS{$last}=$_;
  36             $last="";
  37         }
  38         else {
  39             push @NOARG,$_;
  40         }
  41     }
  42 }
  43
  44 foreach (keys(%ARGS)) {
  45     printf($format,$_,$ARGS{$_});
  46 }
  47 foreach (@NOARG) {
  48     printf($format,"No flag",$_);
  49 }
  50
  51