最近のPerl5.8ではプログラム自体の文字コードが多言語化された。それに伴い、日本語を扱うCGIでは文字コードなどを指定するプログラムを追加する必要があるため、若干複雑になる。
日本語の処理をきっちり説明した解説書も少ない。
そこで、CGIで日本語パラメータの受け渡しを行う例を示しておく。
#!c:/xampp/perl/bin/perl -w
use strict; # 安全のための制限を課す
use warnings; # 警告を出す(same as -w)
use utf8; # UTF-8で書いている
use CGI; # CGIである。
binmode STDOUT,":utf8"; # 標準出力はUTF8
my $encoding = 'utf8'; # HTMLの文字コード
my $lang = 'ja'; # 言語は日本語
my $q = CGI->new();
unless ($q->param) {
response(<<HTML);
<form method="post" action="hello-form.cgi">
あだ名 <input type="text" name="nickname" />
<input type="submit" />
</form>
HTML
exit 0;
}
my $nickname = $q->param('nickname'); # native bytes
utf8::decode($nickname); # utf8
response("こんにちは、$nickname");
exit 0;
sub response {
my ($body) = @_;
print $q->header(-type=>'text/html',-charset=>$encoding);
print $q->start_html(-title=>'Hello Perl',
-lang=>$lang,-encoding=>$encoding);
print $body;
print $q->end_html();
}
