misc/findnonsjis.pl

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use utf8;
   6
   7 use Encode;
   8
   9 my $top = shift @ARGV || exit;
  10 if (! -d $top) { exit; }
  11
  12 my $utf8 = find_encoding("utf8");
  13
  14 checkdir($top);
  15
  16 sub match {
  17     my $str = shift @_;
  18
  19     my $sjis = encode("cp932", $utf8->decode($str), Encode::FB_HTMLCREF);
  20     if ($sjis =~ /&#\d{4,};/) {
  21         Encode::from_to($sjis, "cp932", "utf8");
  22         return $sjis;
  23     }
  24
  25     return '';
  26 }
  27
  28 sub checkdir {
  29     my $target = shift @_;
  30
  31     print STDERR "# checking '$target'\n";
  32     opendir(my $dir, $target) || return $target;
  33     my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
  34     closedir($dir);
  35
  36     my @dirs;
  37     while (my $entry = shift @entries) {
  38         if (my $convert = match($entry)) {
  39             print "'$target/$entry' can be converted to '$convert'\n";
  40             next;
  41         }
  42         if (-d "$target/$entry") {
  43             push @dirs, $entry;
  44             next;
  45         }
  46     }
  47
  48     while (my $entry = pop @dirs) {
  49         checkdir("$target/$entry");
  50     }
  51 }