perl/talias.pl

   1 #!/usr/bin/perl
   2 #
   3 # alias testing tool
   4 #
   5
   6 # search local then perl directories
   7 BEGIN {
   8   # root of directory tree for this system
   9   $root = "/spider";
  10   $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
  11
  12   unshift @INC, "$root/perl";   # this IS the right way round!
  13   unshift @INC, "$root/local";
  14 }
  15
  16 use DXVars;
  17 use CmdAlias;
  18
  19 use Carp;
  20
  21 while (<>) {
  22   chomp;
  23   last if /^q$/;
  24
  25   $o1 = CmdAlias::get_cmd($_);
  26   $o2 = CmdAlias::get_hlp($_);
  27   print "in: $_ cmd: $o1 hlp: $o2\n";
  28 }