plmodule

   1 #!/usr/bin/perl -w
   2 use strict;
   3 ###APPNAME:     plmodule
   4 ###APPAUTHOR:   xiaoranzzz
   5 ###APPDATE:     Fri Sep 14 06:30:59 2007
   6 ###APPVER:      0.1
   7 ###APPDESC:     cat perl module if found
   8 ###APPUSAGE:    (name)
   9 ###APPEXAMPLE:  plmodule module/App.pl
  10 ###APPOPTION:
  11 $ARGV[0]="--help" unless(@ARGV);
  12 exit 0 unless(system("plhelp",$0,(@ARGV)));
  13
  14 my $pldir=`pldir`;
  15 foreach my $mname(@ARGV) {
  16     my $fullname=$pldir . "/" . $mname;
  17     if (-f $fullname) {
  18         open FILE,"<",$fullname;
  19         print while(<FILE>);
  20         close FILE;
  21     }
  22     else {
  23         print STDERR "File not exists:$fullname\n";
  24     }
  25 }
  26
  27
  28