print で書き出したHTMLのページの下に、そのページのソースを表示しようと思っています。 $source .= " \n"; $source .= "ソースを表示 \n"; print "$source\n"; #-------------------------- $source =~ tr/ />/; #-------------------------- print " $source \n"; あたり前ですが、これだと「」は「&」になってしまいます。「」を「>」に変更する方法を教えて頂きたくお願い致します。

1文字を複数の文字に変換したいです。

解決済

質問者：qwert789
質問日時：2009/10/14 17:45
回答数：1件

print で書き出したHTMLのページの下に、そのページのソースを表示
しようと思っています。

$source .= "<html><head><title><title></head><body>\n";
$source .= "ソースを表示</body></html>\n";
print "$source\n";
#--------------------------
$source =~ tr/</</;
$source =~ tr/>/>/;
#--------------------------
print "<br><div style=\"overflow:auto; width:550px; height:300px\">
$source
</div>\n";

あたり前ですが、これだと「<」「>」は「&」になってしまいます。
「<」を「<」に「>」を「>」に変更する方法を教えて頂きたくお願い致します。