Perl DBI の使い方

[1] Installation　の注意

DBD-Pg のために　postgresql-devel を　apt-get install しておく必要がある。

[2] データベースへの接続

my $dbname = "foo";             # データベース名
my $username = "bar";           # ユーザ名

my $dbh = DBI->connect( "dbi:Pg:dbname=$dbname",
                        "$username" )
    or die "Can't connect to database: $DBI::errstr!\n";
$dbh->{RaiseError} = 1;
$dbh->{AutoCommit} = 0;

[3] トランザクション

eval {

        $dbh->commit;
    };
    if( $@ ){
        warn "Transaction aborted because $@";
        eval { $dbh->rollback };
    }

[4] 接続を切る

$dbh->disconnect;