2 # grep for expressions in various fields of the dx file
10 # initialise spots file
11 $count = spot->init();
19 print "$count database records read in\n";
27 last if $field =~ /^q/i;
34 print "doing field $field with /$expr/\n";
47 @spots = spot->search($field, $expr);
49 foreach $ref (@spots) {
51 my $t = ztime($dx[2]);
52 my $d = cldate($dx[2]);
53 print "$dx[0] $dx[1] $d $t $dx[4] <$dx[3]>\n";
56 print "$count records found\n";
64 next if $time - $dx[2] > (84600 * 60);
65 unshift @spots, [ @dx ];
72 foreach $ref (@spots) {
73 if ($$ref[$field] =~ /$expr/i) {
75 my $t = ztime($dx[2]);
76 my $d = cldate($dx[2]);
77 print "$dx[0] $dx[1] $d $t $dx[4] <$dx[3]>\n";