8 use Unicode::Japanese qw(unijp);
10 my $top = shift @ARGV || exit;
11 if (! -d $top) { exit; }
18 my $sjis = unijp($str)->sjis;
19 if ($sjis =~ /&#\d{4,};/) {
27 my $target = shift @_;
29 print STDERR "checking '$target'\n";
30 opendir(my $dir, $target) || return $target;
31 my @entries = sort readdir($dir);
35 while (my $entry = shift @entries) {
36 next if ($entry =~ /^\.+$/);
38 print "'$target/$entry' contains non Shift_JIS character\n";
41 if (-d "$target/$entry") {
47 while (my $entry = pop @dirs) {
48 checkdir("$target/$entry");