たてやんっす

とみたまさひろさんの
題名「[mysql 05204] Re: 全件検索の時間」のメールからの引用です
> とみたです。
> Perl は詳しくないので、具体的に書けませんが…。
おっ　そうか　join 使えば便利っすね　(^o^)丿

> # Ruby だとこんな感じ。
> # 
> # sql = 'SELECT * FROM test'
> # where = []
> # if kw1 == '' then where << "test1 LIKE '#{kw1}%'" end
> # if kw2 == '' then where << "test2 LIKE '#{kw2}%'" end
> # if kw3 == '' then where << "test3 LIKE '#{kw3}%'" end
> # if where.length > 0 then
> #   sql << ' where '+where.join(' and ')
> # end
オブジェクト指向じゃないっすけど　力技で直してみたっす
my $sql = "SELECT * FROM test";
my @where=();
push(@where,"test1 LIKE '$kw1%'") if $kw1 ne "";
push(@where,"test2 LIKE '$kw2%'") if $kw2 ne "";
push(@where,"test3 LIKE '$kw3%'") if $kw3 ne "";
if( $#where >= 0 ) {
    $sql.=" where " . join(" and ",@where);
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  彡彡从        たてやんっす
 d□/□-ｂ      <tateyan@xxxxxxxxxx>
 ヽ"ー"丿

Key fingerprint = 5D56 8EA3 B9FE A721 4866  FB4A 0041 672C 08DD C33A