source: lab.git/misc/findnonsjis.pl

Last change on this file was bf1a1ea, checked in by mitty <mitty@…>, 11 years ago
  • output string contains numeric character references

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@197 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

  • Property mode set to 100755
File size: 1.0 KB
Line 
1#! /usr/bin/perl -w
2
3use strict;
4use warnings;
5use utf8;
6
7use Encode;
8
9my $top = shift @ARGV || exit;
10if (! -d $top) { exit; }
11
12my $utf8 = find_encoding("utf8");
13
14checkdir($top);
15
16sub 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
28sub 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}
Note: See TracBrowser for help on using the repository browser.