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	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	}