無精で短気で傲慢なプログラマ perl+DBI プログラムの鉄則68user 的 perl+DBI プログラムのルール。初心者に教育するときはこのサンプルプログラムを渡すこと。重視すべきなのは、バグの入り込まないコーディングスタイルであることと、可読性を重視すること。速度はその後でよい。 まずはサンプルプログラム。解説は後ほど。 #!/usr/bin/perl use strict; use DBI; my $dbh = DBI->connect($dsn, $user, $password, {RaiseError => 1, PrintError => 0, AutoCommit => 0 }) || die "$!"; eval { &mainwork(); $dbh->commit; $dbh->disconnect; }; if ( $@ ){ $dbh->rollback; $dbh->disconnect; } exit 0; #----
