List of jcode/pl_sjis.cgi

Fri Dec 13 11:54:39 2024

戻る

TEXTAREA で表示(カット&ペーストむき)

#!/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 'シングルクォートの中でも \\\' と \\\\ の2つのエスケープシーケンスは有効だからです。',"\n";

print "回避する例\n";
print 'コード表\',"\n";

print <<END;
</PRE>
<HR>
<CENTER>
<A HREF="jcode.htm">戻る</A>
</CENTER>
</BODY>
</HTML>
END

戻る