wikidata/migration/test1.pl

#!/usr/bin/perl
use strict;

require Encode::EUCJP1997OPENNEC;

my $file_name = shift;

open my $file, '<', $file_name;
local $/ = undef;
my $file_data = <$file>;

Encode::decode ('euc-jp-1997-open-nec', $file_data, 1);
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			require Encode::EUCJP1997OPENNEC;
5
6			my $file_name = shift;
7
8			open my $file, '<', $file_name;
9			local $/ = undef;
10			my $file_data = <$file>;
11
12			Encode::decode ('euc-jp-1997-open-nec', $file_data, 1);