Changeset 16646
- Timestamp:
- 2008-08-04T13:45:45+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/CJKTextSegmenter.pm
r16640 r16646 73 73 while (defined $thissection) { 74 74 75 # segment the text 75 76 my $text = $doc_obj->get_text($thissection); 76 77 $text = &cnseg::segment($text); 77 78 $doc_obj->add_utf8_text($thissection, $text); 79 80 # and now the metadata 81 my $metadataref = $doc_obj->get_all_metadata($thissection); 82 foreach my $data (@$metadataref) { 83 $data->[1] = &cnseg::segment($data->[1]); 84 } 78 85 $thissection = $doc_obj->get_next_section ($thissection); 79 86 }
Note:
See TracChangeset
for help on using the changeset viewer.