< http://www.men-joy.jp/archives... | ３０歳サラリーマン、... >

2012-09-18

■perl SQL::Makerはスゲー便利　その２

http://anond.hatelabo.jp/20120917013417　の続き。

前回は、使ってるモジュールしか書かなかったんで、具体的な使い方を、

my $condition = SQL::Maker::Condition-&gt;new;

$condition-&gt;add('colom1' =&gt; "$value1");                          # colum1 = $value1
$condition-&gt;add('colom2',{'like' =&gt; "%$value2%"});               # colum2 like '%$value1%'
$condition-&gt;add('colom3',{'between' =&gt; ["$value3","$value4"]});  # colom3 between $value3 and $value4

my $q = SQL::Maker::Select-&gt;new(driver =&gt; 'XXXXX');              # XXXXXは、MySQL等の指定をする

# where句に条件を設定
$q-&gt;set_where($condition);                                       

# where句を抽出。select項目やテーブルの指定を全くしてないので、$sql_conditionには
# "FROM WHERE (colum1 = ?) and (colom2 like ?) and (colom3 between ? and ?)" という文字列がセット
my $sql_condition = $q-&gt;as_sql();                                

# "FROM" を消して、WHERE句だけにする 
$sql_condition =~ s/FROM//;                                      

# 設定した条件の配列
my @binds = $q-&gt;bind;                                            

# SQLの読み込み（条件部分をのぞく）
open my $fh, "&lt;", "./sql.txt";
my $sql = do{ local $/; &lt;$fh&gt;};
close $fh;

# 生成したWHERE句とソート順をSQLに追加
$sql = $sql.$sql_condition;

# コネクションを取得
my $conection = DBI-&gt;connect($datasource) or die ( 'could not connect' );
my $sth = $conection-&gt;prepare($sql);

# 条件に値を埋め込む
for(my $i = 0; $i&lt;= $#binds; $i++){
    $sth-&gt;bind_param($i+1,$binds[$i]);
}

# SQLの実行
$sth-&gt;execute;

という形でやってます。

（増田だとpre記法でも「＜」「＞」が正しく変換されないんで、読み替えてください。

やろうと思えば、select項目や読み込むテーブルもPGの中で指定して組み立てることも

出来るんだけど、そこまでやると面倒くさいし、そこまで動的にコントロールする必要が

当サイトでは無かったんで、条件部分のみ動的に変更できるようにしてます。

動的SQLをperlで作ろうと思っている人の参考になれば幸いです。

参考

http://search.cpan.org/~chiba/SQL-Maker/lib/SQL/Maker/Select.pm

http://search.cpan.org/~chiba/SQL-Maker/lib/SQL/Maker/Condition.pm

風俗口コミ横断SEARCH

http://fko-s.info/index.html

Permalink | 記事への反応(0) | 00:17

記事への反応 -

記事への反応（ブックマークコメント）

人気エントリ

注目エントリ

ログイン ユーザー登録
ようこそ ゲスト さん