動的SQLって作成をほとんどしなくなったなぁ、とちょっと思ってみた。昔はこんな感じでよく書いてたよなぁ:




my $cgi = CGI->new;
my $sql = "SELECT ... FROM ... WHERE ... ";
if ($cgi->param('hoge')) {
$sql .= " AND hoge = " . $cgi->param('hoge');
}


もちろんこれはものすごい悪い例なのだけで絶対にいい子は真似しないようにね☆。小難しいSQLはだいたいClass::DBI系統の操作で抽象化されるか、もしくは自分でstored procedureを書いてしまうのでほとんどPerlレベルでのSQLの生成でしない。


まぁ、ちょっととりとめもなく。