次のプログラムでデーターベースを扱えません

Question

kentのデータベース入門というのを参考にしてperlで以下のプログラムを書いたのですが、データーベースを扱えません、どこが間違っているのでしょうか？どなたか教えていただけないでしょうか？（WINDOWS環境）

#!C:/WWW/perl64/bin/perl
use strict;
use DBI;

接続

my $dbh = DBI->connect("dbi:SQLite:dbname=test.db");

テーブル定義

$dbh->do("create table meibo (id,name,addr);");

データ定義

$dbh->do("insert into meibo (id,name,addr) values (1001,'山田','東京都');");
$dbh->do("insert into meibo (id,name,addr) values (1002,'田中','東京都');");
$dbh->do("insert into meibo (id,name,addr) values (1003,'佐藤','埼玉県');");

テーブルの読み出し命令

my $sth = $dbh->prepare("select * from meibo");
$sth->execute;

各データを展開表示

while (my @row = $sth->fetchrow_array) {
print "@row\n";
}
$sth->finish;
undef $sth;

完了

print "OK\n";

切断

$dbh->disconnect;
exit;

Comments

[showkit]

何かエラーが出ているのであれば。掲載をお願いします。デバッガを使用してみるのが手っ取り早いように思います。

[coco_bauer]

「データーベースを扱えません」というのは、どのような現象が起きていることを指しているのか具体的に書いてください。

[trm]

ウェブブラウザに「接続がリセットされました」と表示されます。

Answer 1

ウェブとの接続の問題なのか、perl のソースの問題なのか、まず、デバッグして切り分けてください。
デバッガは「perl -d ソースファイル名」で起動します。

Comments

[trm]

ありがとうございました！