DBD-Pg のために postgresql-devel を apt-get install しておく必要がある。
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;
eval { $dbh->commit; }; if( $@ ){ warn "Transaction aborted because $@"; eval { $dbh->rollback }; }
$dbh->disconnect;