Changeset 13197 for trunk/gsdl/perllib/plugins
- Timestamp:
- 2006-10-30T16:16:38+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/SplitPlug.pm
r12270 r13197 144 144 $self->read_file ($filename, $encoding, $language, \$text); 145 145 146 146 147 if ($text !~ /\w/) { 147 148 gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n", … … 161 162 # Split the text into several smaller segments 162 163 my $split_exp = $self->{'split_exp'}; 163 my @segments = split(/$split_exp/, $text); 164 my @tmp = split(/$split_exp/i, $text); 165 my @segments =(); 166 ## get rid of empty segments 167 foreach my $seg (@tmp){ 168 if ($seg ne ""){ 169 push @segments, $seg; 170 } 171 } 172 164 173 print $outhandle "SplitPlug found " . (scalar @segments) . " documents in $filename\n" 165 174 if $self->{'verbosity'}; … … 209 218 $count = 0; 210 219 foreach $segtext (@$segments) { 211 $segment++;220 $segment++; 212 221 213 222 if (defined $self->{'metapass_srcdoc'}->{$file}->{$segment}) {
Note:
See TracChangeset
for help on using the changeset viewer.