Mac Forum / Programming / Perl / January 2007

Hello,

I downloaded and installed Encode-JIS2K-0.02.  Install log says that  
all tests were successful.  But when I do this:

#!/usr/bin/perl

use strict;
use warnings;

use Encode::JIS2K;
use Encode qw/encode decode/;

my $infile = "some_shiftjisx0123.txt";

undef $/;

open (IN, $infile);

$_ = <IN>;

close (IN);

binmode (STDOUT, ":utf8");

$_ = decode ("shiftjisx0123", $_);

print;

I get this error message:
untitled text 4:21:  Unknown encoding 'shiftjisx0123'

What am I doing wrong...??

-------

And -- if I can solve this problem, I would like to find out from  
text files in shiftjisx0123 characters which belong only to JIS X  
0213, not to JIS X 0212.  Is this possible...??

Thank you very much in advance.

Best regards,

Nobumi Iyanaga
Tokyo,
Japan