wikidata/migration/test3.pl

use strict;
require Encode::EUCJPSW;

$|=1;

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;
my $errr = 0;
 print "ERR: $file_name\n";

$file_name =~ s/([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;

print "($file_name)\n";

Encode::decode ('euc-jp-sw', $c,
 sub{
   printf "# %02X\n", $_[0];
   $errr=1;
 }
               );


}
1	wakaba	1.1	use strict;
2			require Encode::EUCJPSW;
3
4			$\|=1;
5
6			while (<>) {
7			my $file_name = $_;
8			$file_name =~ tr/\x0d\x0a//d;
9			warn $file_name . "...\n";
10			open my $file, '<', $file_name;
11			local $/ = undef;
12			my $c = <$file>;
13
14			$c =~ s/[\x00-\x7f][\xa0-\xff][\x00-\x7f]//g;
15			my $errr = 0;
16			print "ERR: $file_name\n";
17
18			$file_name =~ s/([0-9A-Fa-f]{2})/pack 'C', hex $1/ge;
19
20			print "($file_name)\n";
21
22			Encode::decode ('euc-jp-sw', $c,
23			sub{
24			printf "# %02X\n", $_[0];
25			$errr=1;
26			}
27			);
28
29
30			}