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;