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;