/[webpac-proto]/isis2stream.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /isis2stream.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26