search engine

[Zhang Ting <tingz@xxxxxxxxxxxxxxxx>]

Terrence,

Here is a search program written in perl. You only need set envirionment variable GRE_DIC to the dictionary path name.
 

#!/usr/bin/perl

$Dictionary=$ENV{"GRE_DIC"};
$Word=$ARGV[0];

open(dictionary,"<".$Dictionary);
while($line=<dictionary>){
  if ( $line =~ /$Word/ ) {print $line;}
}
close(dictionary);