8 use Kanconvit; # http://kanconvit.ta2o.net/
10 my $top = shift @ARGV || exit;
11 if (! -d $top) { exit; }
13 my $utf8 = find_encoding("utf8");
14 my $ck = Kanconvit->new();
21 $str = $utf8->decode($str);
22 my $jtext = $ck->conv_c2j($str);
24 return $utf8->encode($jtext);
31 my $target = shift @_;
33 print STDERR "# checking '$target'\n";
34 opendir(my $dir, $target) || return $target;
35 my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
39 while (my $entry = shift @entries) {
40 if (my $japanese = match($entry)) {
41 print "mv '$target/$entry' \\\n";
42 print " '$target/$japanese'\n";
45 if (-d "$target/$entry") {
51 while (my $entry = pop @dirs) {
52 checkdir("$target/$entry");