Perl Tips

CGI.pm で、

<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=euc-jp">

を出力するには以下のようにする。

use CGI;
my $q = new CGI;
print $q->header(),
    $q->start_html(-title => "hello",
        -head => CGI::meta({-http_equiv => 'Content-Type',
            -content => 'text/html;charset=euc-jp'}));

<http://stein.cshl.org/WWW/software/CGI/cgi_docs.html> より。