X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;ds=sidebyside;f=misc%2Ffindsimplified.pl;h=bb804141560c314cf5df9e8dc7a194852c8e75ee;hb=151083b801351c91b78545e521da845c1b139530;hp=024e4ccb653d324c4cfef5c490ed71278844ca54;hpb=44957a510ad53e49bca2c5bb9a5af704bce9f820;p=lab.git

diff --git a/misc/findsimplified.pl b/misc/findsimplified.pl
index 024e4cc..bb80414 100755
--- a/misc/findsimplified.pl
+++ b/misc/findsimplified.pl
@@ -19,9 +19,12 @@ sub match {
     my $str = shift @_;
     
     $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);
+        }
     }
     
     return '';