perlで書いたcgiでsqliteの使い方を教えてください

Question

webでperlのcgiとsqliteの練習にと思いチャットを作ってみています。dbファイルは作られるのですが、テーブルや追加したデータなどが反映しているか確認が取れず、チャットで発言しても履歴を記憶してくれません。実行環境はwindows10のローカルのApacheです。
ちょっと長いですがソースを載せます。どこかおかしいところを指摘していただくと助かります。

#!/usr/bin/perl

use CGI;
use DBI;

my $input_data = new CGI;
my $name = $input_data->param('name');
$name =~ s/,/ /;
my $message = $input_data->param('message');
$message =~ s/,/ /;

my $database = "chat.db";
my $maxline = 20;
my $renzoku_flag = 0;
my $html_sysmsg = "　メッセージを入力せずに更新するとリロードします";

# データベースに接続
my $dbh = DBI->connect("dbi:SQLite:dbname=$database", "", "", {AutoCommit => 0});
my $sql;

# トランザクション開始
$dbh->do("begin;");

# テーブルの作成
$sql = << "SQL";
create table if not exists t_history (
date text,
time text,
name text,
message text
);
SQL
$dbh->do($sql);

# チャット履歴の読み込み
$sql = "select * from t_history order by date desc, time desc;";
my $sth = $dbh->prepare($sql);
$sth-execute;
my @lines = ();
while (my @row = $sth->fetchrow_array) {
push @lines, join(',', @row);
}
$sth->finish;

if ($message ne "") {
if ($name eq "") {
$name = "名無し人";
}
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime;
$year += 1900;
$mon++;
my $date = sprintf("%04d-%02d-%02d", $year, $mon, $mday);
my $time = sprintf("%02d:%02d:%02d", $hour, $min, $sec);

if (@lines > 0) {
my ($tmp_date, $tmp_time, $tmp_name, $tmp_message) = split(/,/, $lines[0]);
if ($tmp_name eq $name && $tmp_date eq $date && $tmp_time eq $time) {
$renzoku_flag = 1;
}
}
if ($renzoku_flag == 1) {
$html_sysmsg = "　１秒以上待ってから発言してください";
} else {
# 発言内容を書き込み
unshift @lines, $date . ',' . $time . ',' . $name . ',' . $message;
$sql = "insert into t_history (date, time, name, message) values ('$date', '$time', '$name', '$message');";
$dbh-do($sql);
}
}

# トランザクションをコミット
$dbh->do("commit;");
# データベースを切断
$dbh->disconnect;

if ($#lines >= $maxline) {
$#lines = $maxline - 1;
}

my $html_lines = "";
foreach (@lines) {
my ($tmp_date, $tmp_time, $tmp_name, $tmp_message) = split(/,/, $_);
$html_lines .= " <div align='left'><font color='lightblue'>$tmp_date $tmp_time(UTC) </font><font color='lime'>$tmp_name </font><font color='white'>$tmp_message</font></div>\n";
$html_lines .= " <hr>\n";
}

print "content-type: text/html\n\n";

print << "HTML";
<!DOCTYPE html>
<html lang='ja'>
<head>
<meta charset='utf-8'>
<link rel='stylesheet' type='text/css' href='../default.css'>
<title>〇△チャット</title>
</head>
<body>
<h1>〇△チャット</h1>
<hr>
<form method='post' action='./chat.cgi' autocomplete='off'>
<div align='left'>
<label for='name'>お名前　　：</label>
<input type='text' name='name' size='10' maxlength='10' value='$name'>
</div>
<div align='left'>
<label for='message'>発言　　　：</label>
<input type='text' name='message' size='80' maxlength='80' autofocus>
</div>
<div align='left'>
<label><input type='submit' value='更新'><font color='silver'>$html_sysmsg</font></label>
</div>
</form>
<hr>
$html_lines
<hr>
<p><a href='../index.html'>〇〇の部屋 - TOP Page</a></p>
</body>
</html>
HTML

$tmp_date $tmp_time(UTC) $tmp_name $tmp_message

"; $html_lines .= "

"; } print "content-type: text/html "; print << "HTML"; 〇△チャット

〇△チャット

$html_lines

〇〇の部屋 - TOP Page

HTML

Ogre7077 · Accepted Answer

以下が怪しい気がします
$sth-execute;
$dbh-do($sql);

osamuy · Answer

みた感じ、エラー判定が無さそうなので、まずはprint文を追加して、どういう挙動してるのか確認してみては。
https://www.bing.com/search?q=print%E3%83%87%E3%83%90%E3%83%83%E3%82%B0%E3%81%A8%E3%81%AF

perlで書いたcgiでsqliteの使い方を教えてください

以下が怪しい気がします

みた感じ、エラー判定が無さそうなので、まずはprint文を追加して、どういう挙動してるのか確認してみては。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング