#!/usr/local/bin/perl5 print "Content-type: text/html\n\n"; print <<END; <HTML> <HEAD> <TITLE>Perl と Shift-JIS で文字化けする例</TITLE> </HEAD> <BODY TEXT="#000000" BGCOLOR="#FFFFFF"> <CENTER><H2>Perl と Shift-JIS で文字化けする例</H2></CENTER> <HR> <PRE> END $str1="表示"; print "表示する。\n"; print "$str1する。\n"; print '表(0x955C)は 2byte目が \(0x5C)になるので、'; print 'perl が 2byte目を \ として動作するためです。',"\n"; print '"表示"(0x955C,0x8EA6)が"侮ｦ\"(0x958E,0xA6)と表示されています。',"\n"; $str2='表示'; print "回避する例\n"; print '表示する。',"\n"; print "表\示する。\n"; print "$str2する。\n"; print 'シングルクォートでも、閉じる直前の文字の 2byte目が \（0x5C) で終わると'; print 'シングルクォートが閉じなくなりエラーになります。',"\n"; print 'シングルクォートの中でも \\\' と \\\\ の２つのエスケープシーケンスは有効だからです。',"\n"; print "回避する例\n"; print 'コード表\',"\n"; print <<END; </PRE> <HR> <CENTER> <A HREF="jcode.htm">戻る</A> </CENTER> </BODY> </HTML> END