Changeset 12770 for trunk/gsdl/bin/script/lucene_query.pl

Timestamp:

2006-09-18T14:32:31+12:00 (18 years ago)

Author:

mdewsnip

Message:

Changed the Lucene "-fuzzy" argument to "-fuzziness <value>", for more accurate control.

File:

• trunk/gsdl/bin/script/lucene_query.pl (modified) (6 diffs)

trunk/gsdl/bin/script/lucene_query.pl

@@ -44 +44 @@
 {
     my $full_indexdir = shift(@_);
-    my $fuzzy = shift(@_);
+    my $fuzziness = shift(@_);
     my $filter_string = shift(@_);
     my $sort_field = shift(@_);
@@ -56 +56 @@
 
     my $cmd = "| " . $java_lucene . " \"" . $full_indexdir . "\"";
-    if (defined($fuzzy)) {
-        $cmd .= " -fuzzy";
+    if (defined($fuzziness)) {
+        $cmd .= " -fuzziness " . $fuzziness;
     }
     if (defined($filter_string)) {
@@ -94 +94 @@
     my $argc = scalar(@argv);
     if ($argc == 0) {
-    print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzzy] [-filter filter_string] [-sort sort_field] [-dco AND|OR] [-startresults number -endresults number] [-out out_file]\n";
+    print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzziness value] [-filter filter_string] [-sort sort_field] [-dco AND|OR] [-startresults number -endresults number] [-out out_file]\n";
     exit 1;
     }
@@ -100 +100 @@
     my $full_indexdir = shift(@argv);
     my $query = undef;
-    my $fuzzy = undef;
+    my $fuzziness = undef;
     my $filter_string = undef;
     my $sort_field = undef;
@@ -109 +109 @@
     for (my $i = 0; $i < scalar(@argv); $i++)
     {
-    if ($argv[$i] eq "-fuzzy") {
-        $fuzzy = 1;
+    if ($argv[$i] eq "-fuzziness") {
+        $i++;
+        $fuzziness = $argv[$i];
     }
         elsif ($argv[$i] eq "-filter") {
@@ -141 +142 @@
     }
 
-    open_java_lucene($full_indexdir, $fuzzy, $filter_string, $sort_field, $dco, $start_results, $end_results, $out_file);
+    open_java_lucene($full_indexdir, $fuzziness, $filter_string, $sort_field, $dco, $start_results, $end_results, $out_file);
 
     if (defined $query) {