Changeset 8d17d4e in lab.git for misc

Timestamp:

Jan 26, 2013 2:18:36 AM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

7ee0f52

Parents:

44957a5

Message:

• fix: convert non Shift_JIS character only
  • skip needless convert (such as U+8C37 -> U+7A40)

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@199 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• misc/findsimplified.pl (modified) (1 diff)

misc/findsimplified.pl

@@ -20 +20 @@
     
     $str = $utf8->decode($str);
-    my $jtext = $ck->conv_c2j($str);
-    if ($str ne $jtext) {
-        return $utf8->encode($jtext);
+    my $sjis = encode("cp932", $str, Encode::FB_HTMLCREF);
+    if ($sjis =~ /&#\d{4,};/) {
+        my $jtext = $ck->conv_c2j($str);
+        if ($str ne $jtext) {
+            return $utf8->encode($jtext);
+        }
     }