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	#!/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);