My $sql = " update lk.albums

Question

Modern::Perl

My $sql = " update lk.albums

set
countries = ?
where id = ? and account_id = ?
";

warn $param_value.", $album_id, ".$user->id();
# edit_album():3322 ARRAY(0x124bc058), 385343, 3869 at /data/www/wbtiger/engine/modules/WBTiger/Components/LKPO/LKPOUpload.pm line 3322, <GEN4> line 9.
warn Dumper($param_value).", $album_id, ".$user->id();
=cut
edit_album():3323 $VAR1 = [
'119',
'89',
'136',
'37'
];
=cut

my $sth = $dbh->prepare($sql);

my ($values) = ({});
foreach my $val (@$param_value) {
$values->{$val} = 1;
}

my $vals = [keys %$values];
$sth->execute($vals, $album_id, $user->id()) or warn "Filed => ".$dbh->errstr;
#$dbh->do($sql, undef, $vals, $album_id, $user->id()) or warn "Filed => ".$dbh->errstr;

#perl #programming #russian

0

16.02.2022

1 ответов

33 просмотра

Pavel Zabolotniy · Accepted Answer

Pavel Zabolotniy

выставьте переменную окружения DBI_TRACE и смотрите логи, например, DBI_TRACE=5

0

16.02.2022

169 похожих чатов

My $sql = " update lk.albums

1 ответов

Похожие вопросы