タグ

Perlとselectに関するtakata3のブックマーク (2)

  • Perl-DBI/SELECT - yanor.net/wiki

    SELECT $sth = $dbh->prepare('SELECT id, name, age FROM t1 WHERE age > ?'); $sth->execute(15); while ($row = $sth->fetchrow_hashref()){ print $row->{id},"\n"; print $row->{name},"\n"; } die $sth->errstr if $sth->err; fetchrow_xxx()が途中でエラーを起こした場合、返値がundefなためwhile()ループを抜ける。 全行走査できたのかエラーだったのか調べるためには、 $sth->errを使うか、 RaiseErrorで例外をキャッチする。 selectxxx_xxx系 (prepare()を経ずに)SQLを直接実行する。 1行を取得 $row = $dbh->sele

  • Perl-DBIC/SELECT 基本 - yanor.net/wiki

    SELECT 基 where句を設定する 比較 $rs->search({ age => 20 }) # WHERE age = 20 = $rs->search({ age => {'!=', 20} }) # WHERE age != 20 != $rs->search({ age => {'>' => 20} }) # WHERE age > 20 > $rs->search({ age => undef }) # WHERE age is NULL NULL 論理演算子 $rs->search([{ age => 20 },{ age => 30 }]) # WHERE age = 20 OR age = 30 OR $rs->search({ age => 20, name => 'taro }) # WHERE age = 20 AND name = 'taro' AND $

  • 1