perl で sqlite データベースに接続

以下は、perl で sqlite データベースに接続するサンプルです。なお、予め cpan コマンドでDBD::SQLite を実行しておく必要がありました。







use strict;
use warnings;

use DBI;

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

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

while (my @row = $sth->fetchrow_array) {
  print join(', ', @row), "\n";
}

$dbh->disconnect;