無精で短気で傲慢なプログラマ perl+DBI プログラムの鉄則 - eval で例外処理
perl+DBI プログラムの鉄則 のつつき。 鉄則その2. DB に接続したらすぐに別の関数に飛ばし、そこですべての処理を行う。 main 部分は my $dbh = DBI->connect(...) || die "$!"; eval { ... $dbh->commit; $dbh->disconnect; }; if ( $@ ){ $dbh->rollback; $dbh->disconnect; } とだけ書いておく。これは Java で言うところの try ～ catch に相当する。 内部で die すれば if ( $@ ) で引っかかるわけだ。なお、RaiseError を ON にしておかないと、エラーが起こっても自動では die してくれないので 注意。disconnect の部分には、エラーが発生したことをログに記録するなどの 後始末を処理を付け加えること。 t
無精で短気で傲慢なプログラマ perl+DBI プログラムの鉄則 - SQL 文の書き方
perl+DBI プログラムの鉄則 のつづき。 鉄則その4. my $sql = "SELECT ". " hoge, ". " fuga ". " FROM table1 ". " WHERE foo = ?"; SQL 文の可読性を高めるため、必ずインデントを付けること。SQL はプログラムと データベースの界面である。プログラムが正しくて、なおかつデータベースが正しく ても、SQL 文が誤っていたら全ては台無しとなる。 しかも SQL 文は多機能なわりに短く書けるので、情報密度が高い (逆に言うと 重要な部分を読み取りづらい)。SQL 文の可読性を高めずして、プログラムの質の 向上はない。 $dbh->prepare("SELECT hoge, fuga FROM table1 WHERE foo = ?"); などと prepare や execute の引数に直接 SQ
無精で短気で傲慢なプログラマ perl+DBI プログラムの鉄則 - fetchrow_arrayref を使え
perl+DBI プログラムの鉄則 のつつき。 鉄則その3. while ( my $arr_ref = $sth->fetchrow_arrayref ){ my ($hoge, $fuga) = @$arr_ref; ... } SELECT 時は上記のように fetchrow_arrayref を使うこと。そして必ずスカラーに 代入すること。せっかく fetchrow_arrayref を使っていても while ( my $arr_ref = $sth->fetchrow_arrayref ){ print "$$arr_ref[0] $$arr_ref[1]\n"; } などと書いては台無しである。配列のインデックスで指定すると取得カラムの 増減に非常に弱い。そしてなりより、$$arr_ref[1] が何を意味するのか さっぱりわからない。 fetchrow_array は使わな
無精で短気で傲慢なプログラマ perl+DBI プログラムの鉄則 - RaiseError と AutoCommit
perl+DBI プログラムの鉄則 のつつき。 鉄則その 1. my $dbh = DBI->connect($dsn, $user, $password, {RaiseError => 1, PrintError => 0, AutoCommit => 0 }); connect 時にするべきこと。 RaiseError は ON にする。そうすれば DB の処理でエラーが発生した ときに勝手に die してくれる。いちいちエラーチェックをする 必要もなくなるし、エラーチェック漏れも起こりえない。楽できるのに、 なおかつ質も向上する。プログラマたるもの、怠惰でなくてはならない。 デフォルトでは PrintError が ON で RaiseError を OFF になっている。 RaiseError を ON にするとエラー発生時にエラーメッセージがダブって 表示されてしまうため、Pri
無精で短気で傲慢なプログラマ 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; #----
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
