perl/gdx.pl

   1 #!/usr/bin/perl
   2 #
   3 # grep for expressions in various fields of the dx file
   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 IO::Handle;
  17 use DXUtil;
  18 use Spot;
  19
  20 $dxdir = "/spider/cmd/show";
  21 $dxcmd = "dx.pl";
  22 $s = readfilestr($dxdir, $dxcmd);
  23 $dxproc = eval "sub { $s }";
  24 die $@ if $@;
  25
  26 STDOUT->autoflush(1);
  27 Spot::init();
  28
  29 for (;;) {
  30   print "expr: ";
  31   $expr = <STDIN>;
  32   last if $expr =~ /^q/i;
  33
  34   chomp $expr;
  35
  36   my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
  37   shift @out;   # remove return code
  38   print @out;
  39 }
  40