Date: 2008jan14 Keywords: SQL, UPDATE, DELETE Language: perl Library: DBI Q. What's the nicest way to do a SQL UPDATE using Perl and DBI? A. Since you don't need which reply (from SQL) using the do() method.

use DB; use strict; # The way its sometimes done - a bit wordy sub wordy($) { my($dbh) = @_; my($sql, $sth, $ref); $sql = qq(UDPATE ...); $sth = $dbh->prepare($sql); $sth->execute(); while ($ref = $sth->fetchrow_hashref()) { # Do nothing } $sth->finish(); } # A nicer way sub nice($$) { my($dbh, $name) = @_; my($sql, $sth, $n_rows); $sql = qq(UPDATE ...); $n_rows = $dbh->do($sql); retun $n_rows; }

This works for SQL DELETEs also. Related http://www.davekb.com/search.php?target=perl+DBI http://www.davekb.com/search.php?target=mysql