http://d.hatena.ne.jp/sfujiwara/20060604/1149445141 昨日の続き。
どうやら UTF-16 みたい。で、手元の Linux / Windows の Firefox だと 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";
なんか嫌になってきたぞ。