434. Re: Perl6

On Tue, 03 Aug 2004 01:05:34 +0900
"Bruce." <kbk@...> さんwrote:

>   echo "\" | iconv -f sjis -t ucs-2
> 
> とかやると、しっかり0xa5になります。が、これだとバックスラッシュ扱いしたい

use Unicode::Japanese;
$s = Unicode::Japanese->new();
$char = $s->set($ARGV[0],sjis)->ucs2;
$len = length($char) x 2;
print unpack("H$len", $char),"\n";

で

jperl sjis2ucs2.pl \

とすると、005c に変換されます。ucs2をutf8にすると、5cに変換されます。

utf8にして、￥(全角)文字を変換すると、efbfa5 になります。おかくしくない
ですね。

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/