stupid DBI
Jasper McCrea
jasper at guideguide.com
Tue Aug 19 10:30:50 CDT 2003
execute called with 2 bind variables when 3 are needed at
/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm line 941.
if ($id = $sql->selectrow_array(qq{
SELECT id
FROM address_only
# WHERE name = ?
WHERE street = ?
AND zip = ?}, # undef, $details[4], $details[5])) {
undef, $details[12], $details[8])) {
stupid DBI.
Jasper
--
$a=S->n;$b=S->n;map{@o=!$a->g,$b->g,for at c;@o[$a->g,$b->g]=($a->l,$b->l)
;print+map$_||$", at o,$/}@c=0..200;package S;sub n{bless{v=>'-'x$n++.25},
pop}sub g{$s=pop;15+($s->{p}+=($s->{v}+=$s->a)/1e3)/$n}sub a{-$_[0]->{p
}/1e3}sub l{(jaspanotherperlhacker=~/./g)[$_[0]->{i}*=++$_[0]->{i}<21]}
More information about the Belfast-pm
mailing list