CGI.pmのcheckboxの-labelにHTMLタグを含んだ文字

質問

CGI.pmのcheckboxの-labelにHTMLタグを含んだ文字列を渡すことはできますか

具体的には、CGI.pmのcheckbox関数を使って次のような文字列を生成したいです
<label><input type="checkbox" name="abc" value="xyz" accesskey="A" />abc(<span style="text-decoration: underline">A</span>)</label>

次のソースでうまくいくと思ったのですが、
$q->checkbox(-name => 'abc', -value => 'xyz', -accesskey => 'A', -label => 'abc(' . $q->span({-style => 'text-decoration: underline'}, 'A') . ')')

実際に返される文字列は、
<label><input type="checkbox" name="abc" value="xyz" accesskey="A" />abc(&lt;span style=&quot;text-decoration: underline&quot;&gt;A&lt;/span&gt;)</label>
のように-labelに指定したHTMLタグが&○○;のようにエスケープされてしまいました・・・(T_T)

回答No.1

_--_1l1_1_ · ベストアンサー

use CGI;

my $q = CGI->new();
$q->autoEscape(0);
print $q->checkbox(
-name => 'abc',
-value => 'xyz',
-accesskey => 'A',
-label => 'abc('
. $q->span( { -style => 'text-decoration: underline' }, 'A' ) . ')'
);
$q->autoEscape(1);

お礼

おお！
autoEscapeという関数を使って、自動エスケープ機能のオン/オフができるのですね。
この自動エスケープ機能は、今までも結構イライラしていたものなので、
特定の場所だけオフにするよりも、
私のスクリプトでは先頭にautoEscape(0)を書いたきりにします
どうも、ありがとうございました！