plfile

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     plfile
   3 ###APPAUTHOR:   geek
   4 ###APPDATE:     Sun Sep 30 07:48:09 2007
   5 ###APPVER:      0.1
   6 ###APPDESC:     find perl script file
   7 ###APPUSAGE:    (script name)
   8 ###APPEXAMPLE:  plfile plfile
   9 ###APPOPTION:
  10 use strict;
  11 $ARGV[0]="-h" unless(@ARGV);
  12 foreach(@ARGV){
  13     exit(system("formathelp $0 1>&2")) if($_ eq "-h" || $_ eq "--help");
  14 }
  15 my $pldir=qx/pldir/;
  16 my $name=shift;
  17
  18 foreach my $filename($name,"include/$name","$name.pl","include/$name.pl","$name.inc","include/$name.inc") {
  19     exit(print("$pldir/$filename")) if(-f "$pldir/$filename");
  20 }
  21 print STDERR("***PLFILE***:$name not found under $pldir\n");
  22