DBIでbindした後のSQL文を引っ張り出す方法 - download_takeshi’s diary
会社で隣の席にすわってるKさんから「DBIでexecuteする時に色々な値をbindするじゃないですか。その後で実際に投げられたSQL文を引っ張ってくる方法ないんですか？」と質問されちゃいました。 そう言えばDBIx::Classとかだと環境変数でなんかセットするんだったけど、素のDBIの場合どうするのかな？と思って調べてみました。 DBIの長い長いドキュメントをずーっと読み進んで行くと、下の方に「TRACING」というセクションがありまして、そこにヒントが隠されてました。 どうやらTrace Flagsで「SQL」と指定すると標準エラーにトレース情報が出力されるみたいです。 具体的にはこれでいいみたい。 $dbh->{TraceLevel} = "3|SQL"; これでSTDERRにバコバコっとトレース情報が出力されて行きます。 STDERRの中に、実際に投げられたSQL文も含まれている
PerlでPostgreSQL (DBI)
Perlでデータベース接続を行う際に使うモジュール、DBI.pm の覚え書きとサンプル。何回やっても忘れるので自分用メモ 何より基本 ググる前にまず perldoc DBI して公式ドキュメントを読むべき。（自戒を込めて） とりあえずこんな感じ - サンプルコード SELECT #!/usr/bin/perl use strict; use DBI; my $DB_NAME = "testdb"; my $DB_HOST = "localhost"; my $DB_USER = "ozuma"; my $dbh = DBI->connect("dbi:Pg:dbname=$DB_NAME;host=$DB_HOST", "$DB_USER") or die "$!\n Error: failed to connect to DB.\n"; my $ary_ref = $dbh->selec
無精で短気で傲慢なプログラマ 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 は使わな
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
