/[webpac]/trunk2/all2all.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 /trunk2/all2all.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 579 by dpavlin, Mon Nov 1 22:15:41 2004 UTC revision 591 by dpavlin, Sat Nov 6 22:46:30 2004 UTC
# Line 128  my $maxmfn = $webpac->open_isis( Line 128  my $maxmfn = $webpac->open_isis(
128          { 'eval' => 'length("v251") == 2 && "v800" =~ m/EUROVOC/ || "v800" =~ m/CROVOC/ && "v251" =~ m/^(H|HD|L|Z|P)$/', 'key' => 'root:v251', 'val' => 'v900' },          { 'eval' => 'length("v251") == 2 && "v800" =~ m/EUROVOC/ || "v800" =~ m/CROVOC/ && "v251" =~ m/^(H|HD|L|Z|P)$/', 'key' => 'root:v251', 'val' => 'v900' },
129          { 'eval' => '"v251"', 'key' => 'code:v900', 'val' => 'v561^4:v251' },          { 'eval' => '"v251"', 'key' => 'code:v900', 'val' => 'v561^4:v251' },
130          { 'eval' => '"v561^4" && "v562^4"', 'key' => 'code:v900', 'val' => 'v561^4:v562^4' },          { 'eval' => '"v561^4" && "v562^4"', 'key' => 'code:v900', 'val' => 'v561^4:v562^4' },
131            { 'key' => 'crovoc:v900', 'val' => 'filter{CROVOC}v800' },
132          ],          ],
133  );  );
134    
# Line 178  while (my $rec = $webpac->fetch_rec) { Line 179  while (my $rec = $webpac->fetch_rec) {
179    
180                  # strip all non word characters from beginning or end                  # strip all non word characters from beginning or end
181                  # of word                  # of word
182                  my $words = join(" ",@{$ds->{'swish'}});                  my $words = unac(join(" ",@{$ds->{'swish'}}));
183                  $words =~ s/^\W+//;                  $words =~ s/^\W+//;
184                  $words =~ s/\W*\s+\W*/ /g;                  $words =~ s/\W*\s+\W*/ /g;
185                  $words =~ s/\W+$//;                  $words =~ s/\W+$//;
# Line 195  while (my $rec = $webpac->fetch_rec) { Line 196  while (my $rec = $webpac->fetch_rec) {
196                          #path => $f,                          #path => $f,
197                          path => $webpac->mfn,                          path => $webpac->mfn,
198                          headline => $h,                          headline => $h,
199                          words => unac($words),                          words => $words,
200                  );                  );
201          }          }
202    
Legend:
Removed from v.579  
changed lines
  Added in v.591
  ViewVC Help
Powered by ViewVC 1.1.26