Want to know what sql you're throwing at the database but you're binding variables. This should do the trick:
use Text::Wrap; my $temp = $sql; $temp =~ s/\?/$dbh->quote($_)/e for @data; print $cgi->pre(wrap('','',$temp));
Re:Bug
gav on 2002-09-19T21:34:12
Doh. I didn't think of that:( This works for that case:
my $i = 0;
$temp =~ s/\?/$dbh->quote($data[$i++])/ge;