3 # grep for expressions in various fields of the dx file
6 # search local then perl directories
8 # root of directory tree for this system
10 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
12 unshift @INC, "$root/perl"; # this IS the right way round!
13 unshift @INC, "$root/local";
20 $dxdir = "/spider/cmd/show";
22 $s = readfilestr($dxdir, $dxcmd);
23 $dxproc = eval "sub { $s }";
32 last if $expr =~ /^q/i;
36 my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
37 shift @out; # remove return code