Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Thu Jun 13 15:32:10 2002 UTC | revision 1.2 by dpavlin, Fri Jun 14 18:24:05 2002 UTC | |
---|---|---|
# | Line 185 sub mps_expand { | Line 185 sub mps_expand { |
185 | my $nr = shift @_; | my $nr = shift @_; |
186 | my $out = ""; | my $out = ""; |
187 | while (my $fld = shift @_) { | while (my $fld = shift @_) { |
188 | if ($fld =~ m/\s+/) { | if ($fld =~ s/\s*[,;\.!?'"<>\[\]]*\s+/ /g) { |
189 | foreach my $w (split(/\s+/,$fld)) { | foreach my $w (split(/\s+/,$fld)) { |
190 | # FIX: this should be replaced by stemmer! | # FIX: this should be replaced by stemmer! |
191 | $out .= "W $w $nr\n"; | $out .= "W $w $nr\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |