On 2007/01/03, at 23:52, Nobumi Iyanaga wrote:
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'
Is that a typo?
What am I doing wrong...??
Maybe 0123 should be 2013?
(I've never seen the version number for jis tagged on the end, but ...)
-------
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...??
I'm sure it's possible, either by making something like an isprint
boolean table for each entire character set, or be slurping the file
and scanning it in parallel from memory. I think it should even be
possible to open two read-only streams on the same file, read
characters out, and throw some message when the one doesn't match the
other.
Don't know if there are any shortcut tools for it.
Thank you very much in advance.
Best regards,
Nobumi Iyanaga
Tokyo,
Japan
