Min^2 BLOG

こりゃ楽だ。dbへのアクセスが3行で済んじゃう。

my $query = "あーだこーだ";
my $st = &db($query);
my @data = $st->fetchrow;

sub db {
　my ($query) = @_;
　my ($db, $st);

　unless ($db = DBI->connect("dbi:SQLite:dbname=$database")) { &error('DB access error'); }
　unless ($st = $db->prepare($query)){ &error('Prepare error'); }
　unless ($st->execute()){ &error('execute error'); }
　$db->disconnect();
　return ($st);
}

ホンモノのソフト屋さん、ごめんなさい。こんなんで喜んでます。