読者です 読者をやめる 読者になる 読者になる

Morkの文字コード

http://d.hatena.ne.jp/sfujiwara/20060604/1149445141 昨日の続き。
どうやら UTF-16 みたい。で、手元の Linux / WindowsFirefox だと LE (little endian) なんだけど、Mac OS X (mac mini) だと BE だ。これって環境依存だな…

#!/usr/bin/perl
use Encode qw(from_to);
use strict;
my $val = 'Y$00o$00u$00T$00u$00b$00e$00 $00-$00 $00$B90$D70$FC0$010r$89eg $00[$00S$00P$00O$00O$00 $00A$00T$00T$00A$00C$00K$00]$00';
$val =~ s/\$([\dA-F]{2})/chr(hex($1))/ge;
from_to($val, 'UTF-16LE', 'utf-8');
print $val, "\n";

なんか嫌になってきたぞ。