【大喜利】【投稿～1/20】 追い込まれた犯人が咄嗟に言った一言とは？

マジレス希望

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

解決済

  • 質問者：MenPin
  • 質問日時：
  • 回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.2ベストアンサー

  • 回答者： Ogre7077
  • 回答日時：

以下が怪しい気がします


$sth-execute;
$dbh-do($sql);
    • good
    • 0
    • 件
通報する
この回答へのお礼

回答ありがとうございます。
-を->に直したらきちんと履歴を表示するようになりました。
ありがとうございました。

通報する
お礼日時：2023/05/09 17:58

No.1

  • 回答者： osamuy
  • 回答日時：

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


https://www.bing.com/search?q=print%E3%83%87%E3% …
    • good
    • 0
    • 件
通報する
この回答へのお礼

回答ありがとうございます。
INSERT文の所に$html_sysmsg = "OK";と書いてOKと表示されたので、INSERT文が実行されているはずなのですが、SQL自体が動いているかどうかがわからないです。dbファイルのパーミッションはwindowsだから変えれなさそうなのでよくわかりませんが、権限の問題なのでしょうか？CGIからSQLを使う時ののデバッグをする方法があればいいのですが、、、

通報する
お礼日時：2023/05/09 17:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

おすすめ情報

Q質問する（無料）

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

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

おすすめ情報