Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Pragma's scratchpad

by Pragma (Scribe)
on Sep 15, 2004 at 05:30 UTC ( [id://391086]=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w $|++; # BEGIN { $ENV{DBI_PUREPERL} = 2 } use strict; use Data::Dumper; use DBI(); # DBI->trace(15); my $sponge = DBI->connect("dbi:Sponge:","",""); my $sth = $sponge->prepare('foo', { rows => [ [ 'bar' ] ], NAME => [ 'baz' ], } ); print Dumper $sth->DBD::_::dr::FETCH("NAME_hash");
Spooky data corruption:
Attempt to free unreferenced scalar: SV 0x1ab0358 at C:/perl/site/lib/ +DBI.pm line 1869. $VAR1 = { '1' => { 'skip' => undef, 'last_price' => '0', 'last_update' => undef, 'include_all' => 0, 'price' => '0', 'title' => { 'skip' => undef, 'last_price' => { 'skip' => undef, 'last_price' => unde +f, 'last_update' => und +ef, 'include_all' => 0, 'price' => '0', 'title' => undef, 'id' => '3' }, 'last_update' => undef, 'include_all' => 0, 'price' => '0', 'title' => undef, 'id' => '2' }, 'id' => '1' }, '3' => $VAR1->{'1'}{'title'}{'last_price'}, '2' => $VAR1->{'1'}{'title'} }; Attempt to free unreferenced scalar: SV 0x1ab04a8. Attempt to free unreferenced scalar: SV 0x1ab03b8.
A result set from fetchrow_hashref???
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (2)
As of 2024-05-26 02:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found