2007-08-20から1日間の記事一覧
テスト用に作成したのでメモ。 use Encode; print_utf16_table();sub print_utf16_table{ for my $upper(0..4095){ my $tmp=sprintf("%04X",$upper)."0 "; Encode::from_to($tmp,'ascii','UTF16-BE'); print $tmp; for my $lower (0..16){ my $code=pack('n'…
テスト用に作成したのでメモ。 use Encode; print_utf16_table();sub print_utf16_table{ for my $upper(0..4095){ my $tmp=sprintf("%04X",$upper)."0 "; Encode::from_to($tmp,'ascii','UTF16-BE'); print $tmp; for my $lower (0..16){ my $code=pack('n'…
