wikidata/migration/test2.pl

use strict;
require Encode::EUCJP1997OPENNEC;

while (<>) {
my $file_name = $_;
$file_name =~ tr/\x0d\x0a//d;
warn $file_name . "...\n";
open my $file, '<', $file_name;
local $/ = undef;
my $c = <$file>;

$c =~ s/[\x00-\x7f][\xa0-\xff][\x00-\x7f]//g;

eval {
Encode::decode ('euc-jp-1997-open-nec', $c, 1);
1;

} or warn $@ and print "ERR: $file_name\n";

}
1	wakaba	1.1	use strict;
2			require Encode::EUCJP1997OPENNEC;
3
4			while (<>) {
5			my $file_name = $_;
6			$file_name =~ tr/\x0d\x0a//d;
7			warn $file_name . "...\n";
8			open my $file, '<', $file_name;
9			local $/ = undef;
10			my $c = <$file>;
11
12			$c =~ s/[\x00-\x7f][\xa0-\xff][\x00-\x7f]//g;
13
14			eval {
15			Encode::decode ('euc-jp-1997-open-nec', $c, 1);
16			1;
17
18			} or warn $@ and print "ERR: $file_name\n";
19
20			}