636. Re: Wide character

Bruce.です。

わたなべさんの提示した方法で解決するわけですが、邪道な
方法を示したいと思います。

#!/cygdrive/c/Perl5.8/bin/perl
##!/usr/bin/perl
use utf8;

sub magic {
    return pack('C0A*', shift);
}

my $str = "日本語";# UTF-8で書く
print magic($str),  ": ", length $str,"\n";
foreach (split //, $str){
	print sprintf("%04X\x20", ord);
}

最初に言ったとおり邪道な方法なので良い子は
使っちゃいけません ;-)

-- 
木村浩一
  I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
  mail kbk@...
	web  www.kt.rim.or.jp/~kbk/index.html#zakkicho
	     homepage3.nifty.com/farstar/