note
edan
<p>UNTESTED</p>
<code>
my @array = qw(Anna Maria Carmen);
my @phldrs = ('?') x @array;
local $" = ',';
my $sql = qq/DELETE FROM tnt WHERE Name NOT IN (@phldrs)/;
my $sth = $dbh->prepare($sql);
$sth->execute(@array);
$sth->finish;
</code>
<div class="pmsig"><div class="pmsig-236234">
--<br />[3dan]<br /><br />
</div></div>
319085
319085