#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print "
\n"; print "\n"; printf "ascii = %02x %02x %02x\n", unpack("CCC", $ascii); printf "roman = %02x %02x %02x\n", unpack("CCC", $roman); printf "jis_o = %02x %02x %02x\n", unpack("CCC", $jis_o); printf "jis = %02x %02x %02x\n", unpack("CCC", $jis); printf "kana = %02x %02x %02x\n", unpack("CCC", $kana); printf "\n"; printf "
\n"; # "A" を表示する例 $code = 0x41; $val = pack("C", $code); printf "\"%s\" (%02x)\n", $val, $code; # "あ" を表示する例 $code1 = 0xa4; $code2 = 0xa2; $val = pack("CC", $code1, $code2); printf "\"%s\" (%02x %02x)\n", $val, $code1, $code2; printf "\n"; printf "