Changeset 198 in lab

Timestamp:

Jan 26, 2013 1:57:12 AM (11 years ago)

Author:

mitty

Message:

• find file or directory that name contains Simplified Chinese characters
• output how to convert them to Japanese Shinjitai

File:

• trunk/misc/findsimplified.pl (copied) (copied from trunk/misc/findcombinable.pl) (4 diffs)

trunk/misc/findsimplified.pl

@@ -6 +6 @@
 
 use Encode;
-use Unicode::Normalize qw(NFC);
+use Kanconvit;  # http://kanconvit.ta2o.net/
 
 my $top = shift @ARGV || exit;
@@ -12 +12 @@
 
 my $utf8 = find_encoding("utf8");
+my $ck = Kanconvit->new();
 
 checkdir($top);
@@ -19 +20 @@
     
     $str = $utf8->decode($str);
-    if ($str ne NFC($str)) {
-        return $utf8->encode(NFC($str));
+    my $jtext = $ck->conv_c2j($str);
+    if ($str ne $jtext) {
+        return $utf8->encode($jtext);
     }
     
@@ -36 +38 @@
     my @dirs;
     while (my $entry = shift @entries) {
-        if (my $composed = match($entry)) {
-            print "'$target/$entry' can be composed to '$composed'\n";
+        if (my $japanese = match($entry)) {
+            print "mv '$target/$entry' \\\n";
+            print "   '$target/$japanese'\n";
             next;
         }