Changeset 16641 for gsdl/trunk/perllib
- Timestamp:
- 2008-08-04T12:45:59+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cnseg.pm
r15894 r16641 55 55 my $space = 1; # start doesn't need a space 56 56 foreach $c (@$uniin) { 57 if (($c >= 0x4e00 && $c <= 0x9fa5) || 58 ($c >= 0xf900 && $c <= 0xfa2d)) { 59 # Chinese character 57 if (($c >= 0x2e80 && $c <= 0xfa6a) || # main east asian codes 58 ($c >= 0x20000 && $c <= 0x2a6d6) || # cjk unified ideographs ext B 59 ($c >= 0x2f800 && $c <= 0x2fa1d)) { #cjk compatibility ideographs supplement 60 # CJK character 60 61 push (@$out, 0x200b) unless $space; 61 62 push (@$out, $c);
Note:
See TracChangeset
for help on using the changeset viewer.