Changeset 6f4fe5e in lab.git for misc/findnonsjis.pl

Timestamp:

Jan 24, 2013 10:32:47 PM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

89fbc5d

Parents:

cdcfe90

Message:

• replace Unicode::Japanese with Encode

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

File:

• misc/findnonsjis.pl (modified) (2 diffs)

misc/findnonsjis.pl

@@ -6 +6 @@
 use encoding 'utf-8';
 
-use Unicode::Japanese qw(unijp);
+use Encode;
 
 my $top = shift @ARGV || exit;
 if (! -d $top) { exit; }
+
+my $utf8 = find_encoding("utf8");
 
 checkdir($top);
@@ -16 +18 @@
     my $str = shift @_;
     
-    my $sjis = unijp($str)->sjis;
+    my $sjis = encode("cp932", $utf8->decode($str), Encode::FB_HTMLCREF);
     if ($sjis =~ /&#\d{4,};/) {
         return 1;