Changeset 16642
- Timestamp:
- 2008-08-04T12:47:36+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ReadTextFile.pm
r16555 r16642 34 34 use encodings; 35 35 use unicode; 36 use cnseg;37 36 use textcat; 38 37 use doc; 39 eval "require diagnostics"; # some perl distros (eg mac) don't have this40 38 use ghtml; 41 39 use gsprintf 'gsprintf'; … … 73 71 'type' => "string", 74 72 'deft' => "en", 75 'reqd' => "no" }, 76 { 'name' => "separate_cjk", 77 'desc' => "{ReadTextFile.separate_cjk}", 78 'type' => "flag", 79 'reqd' => "no"}, 80 ]; 73 'reqd' => "no" } 74 ]; 81 75 82 76 … … 226 220 $reader->set_encoding ($encoding); 227 221 $reader->read_file ($textref); 228 #Now segments chinese if the separate_cjk option is set229 if ($self->{'separate_cjk'}) {230 # segment the Chinese words231 $$textref = &cnseg::segment($$textref);232 }233 222 } 234 223 close FILE;
Note:
See TracChangeset
for help on using the changeset viewer.