Help for this page

Select Code to Download


  1. or download this
    #!/perl/bin/perl
use strict;
...
my $sql = SQL::Abstract->new;
my($query, @binds) = $sql->update('table', \%column, { id => id });
print Data::Dumper::Dumper($query, \@binds);
  2. or download this
    $VAR1 = 'UPDATE table SET DateRenamed = NOW(), Listname = ?, OldListna
+me = ? WHERE ( id = ? )';
$VAR2 = [
...
          'NOT OK',
          1234
        ];