178 |
|
|
179 |
# strip all non word characters from beginning or end |
# strip all non word characters from beginning or end |
180 |
# of word |
# of word |
181 |
my $words = join(" ",@{$ds->{'swish'}}); |
my $words = unac(join(" ",@{$ds->{'swish'}})); |
182 |
$words =~ s/^\W+//; |
$words =~ s/^\W+//; |
183 |
$words =~ s/\W*\s+\W*/ /g; |
$words =~ s/\W*\s+\W*/ /g; |
184 |
$words =~ s/\W+$//; |
$words =~ s/\W+$//; |
195 |
#path => $f, |
#path => $f, |
196 |
path => $webpac->mfn, |
path => $webpac->mfn, |
197 |
headline => $h, |
headline => $h, |
198 |
words => unac($words), |
words => $words, |
199 |
); |
); |
200 |
} |
} |
201 |
|
|