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";
21 $dxdir = "/spider/cmd/show";
23 $s = readfilestr($dxdir, $dxcmd);
24 $dxproc = eval "sub { $s }";
34 last if $expr =~ /^q/i;
38 my @out = map {"$_\n"} &$dxproc({priv=>0,call=>'GDX'}, $expr);
39 shift @out; # remove return code