perl cgi文字化け解消方法と[1～][11～][21～][最新10件]のようなリンクを付ける方法。
perlにてcgiを勉強しようと初掲示板を作ってみました。
しかし、日本語を入力すると文字化けしてしまいます。
また、入力フォームの下に[1～][11～][21～][最新10件]のようなリンクを付けたいです。
以上２点のやり方を教えて下さい。お願いします。
#!/usr/bin/perl -w
use strict;
use warnings;
use Encode;
use utf8;
use CGI;
print "location: ./bbs.html\n\n";
print "Content-type: text/html\n\n";
my $q = new CGI;
my $name = $q->param('name');
my $body = $q->param('body');
$name =~ s/</</g;
$name =~ s/>/>/g;
$body =~ s/</</g;
$body =~ s/>/>/g;
$body =~ s/\n/<br \/>/g;
my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year += 1900;
$mon += 1;
$wday = sprintf("%s", qw(日 月 火 水 木 金 土)[$wday]);
my $time = sprintf "$year/%02d/%02d($wday) %02d:%02d:%02d",$mon,$mday,$hour,$min,$sec;
open LOG, ">> log.txt";
print LOG "$time<>$name<>$body\n";
open LOG, "< log.txt";
my @log = <LOG>;
close LOG;
open HTML, "> bbs.html";
print HTML << "END";
<html>
<head>
<style>
body{background:#f0f0f0;}
span.name{color:blue;}
p.body{margin-left:32px;}
</style>
<script type="text/javascript">
<!--
function check(form){
function id(id){return(document.getElementById(id));}
if(form.name.value == "" || form.body.value == ""){
id('err').innerHTML = "入力に誤りがあります<br />";
id('err').style.color = "red";
return false;
}else{
return true;
}
}
//-->
</script>
<title>簡易掲示板</title>
</head>
<body>
<form action="bbs.cgi" method="post" onsubmit="return check(this)">
<fieldset>
<legend>入力フォーム</legend>
<span id="err"></span>
<label>名前</label><br />
<input type="text" name="name" /><br />
<label>本文</label><br />
<textarea name="body"></textarea><br />
<input type="submit" value="書き込み" />
</fieldset>
</form>
<hr />
END
close HTML;
open HTML, ">> bbs.html";
my $num = 0;
for(@log){
$num++;
chomp($_);
my @write = split /<>/, "$_";
print HTML "<p>$num：<span class='name'>$write[1]</span> $write[0]</p>\n<p class='body'>$write[2]</p>\n";
}
print HTML << "END";
<hr />
<a href="dammy">TOP</a>
</body>
</html>
END
close HTML;
exit;
よろしくお願いします。
