2009年5月17日日曜日

PerlでSQLiteを操作するp5-Class-DBI-SQLiteをインストールする

p5-Class-DBI-SQLite を ports からインストールします。

cd /usr/ports/databases/p5-Class-DBI-SQLite
sudo make install clean

こんなカンジで接続します。

#!/usr/local/bin/perl -w
use strict;

use DBI;
my $dbh = DBI->connect("dbi:SQLite:dbname=dbfile.sqlite","","");
if (! $dbh) {
die "$dbfile: [$!]";
}
my $sth;
$sth = $dbh->prepare(
qq {
SELECT * FROM sqlite
}
) or die $dbh->errstr;
my $rv = $sth->execute() or die $dbh->errstr;
$sth->finish();
undef $sth;
$dbh->disconnect();