WinXPでAN HTTP,ActivePerlを使用しています。
配列を学ぶために以下のスクリプトを書きました。
------------------------------------------
#!/perl/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
my @abc2 = ("山田太郎","甲子園","A","33");
print header;
print start_html("test3");
print h1(@abc2[0]);
print h1(@abc2[1]);
print h1(@abc2[2]);
print h1(@abc2[3]);
print end_html;
-------------------------------------------
これを実行すると文字化けします。
******************************************
ŽR“c‘¾˜Y
bŽq‰€
A
33
******************************************
どうすれば文字化けしなくなるでしょうか?
|