Perl-DBI/INSERT-DELETE-UPDATE のバックアップ(No.1)

INSERT/UPDATE/DELETE

 $sql = 'insert into t1 (num, str) values (?,?)';
 $sth = $dbh->prepare($sql);
 $sth->execute(time,"i'm happy");

 $num_of_rows = $dbh->do('update t1 set num = 1 where num > 0');

影響した行数が0の場合は、$num_of_rowsには"0E0"が入ってる。よって$dbh->do(XXX) or die $dbh->errstrと記述できる。

 $num_of_rows = $sth->rows;
 $num_of_rows = $sth->execute;

 print $dbh->last_insert_id(undef,undef,'t1','id');   # テーブル名とカラム名を指定
 print $dbh->last_insert_id(undef,undef,undef,undef); # MySQLだとこれでも取れる