Changeset 189 in lab

Timestamp:

Jan 24, 2013 9:17:01 PM (11 years ago)

Author:

mitty

Message:

• find file or directory that name contains non sjis character

File:

• trunk/misc/findnonsjis.pl (copied) (copied from trunk/misc/findcombinable.pl) (3 diffs)

trunk/misc/findnonsjis.pl

@@ -6 +6 @@
 use encoding 'utf-8';
 
-use Unicode::Normalize qw(NFC NFKC);
+use Unicode::Japanese qw(unijp);
 
 my $top = shift @ARGV || exit;
@@ -16 +16 @@
     my $str = shift @_;
     
-    if ($str ne NFC($str)) {
-        return 1;
-    }
-    if ($str ne NFKC($str)) {
+    my $sjis = unijp($str)->sjis;
+    if ($sjis =~ /&#\d{4,};/) {
         return 1;
     }
@@ -38 +36 @@
         next if ($entry =~ /^\.+$/);
         if (match($entry)) {
-            print "'$target/$entry' can be composed\n";
+            print "'$target/$entry' contains non Shift_JIS character\n";
             next;
         }