Changeset 13197

Timestamp:

2006-10-30T16:16:38+13:00 (17 years ago)

Author:

shaoqun

Message:

the empty segments are ignored

File:

• trunk/gsdl/perllib/plugins/SplitPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -144 +144 @@
     $self->read_file ($filename, $encoding, $language, \$text);
 
+ 
     if ($text !~ /\w/) {
         gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n",
@@ -161 +162 @@
     # Split the text into several smaller segments
     my $split_exp = $self->{'split_exp'};
-    my @segments = split(/$split_exp/, $text);
+        my @tmp  = split(/$split_exp/i, $text);
+    my @segments =();
+    ## get rid of empty segments
+    foreach my $seg (@tmp){
+        if ($seg ne ""){
+        push @segments, $seg;
+        }
+    }
+
     print $outhandle "SplitPlug found " . (scalar @segments) . " documents in $filename\n" 
         if $self->{'verbosity'};
@@ -209 +218 @@
     $count = 0;
     foreach $segtext (@$segments) {
-    $segment++;
+        $segment++;
 
     if (defined $self->{'metapass_srcdoc'}->{$file}->{$segment}) {