Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: selectall_hashref structure

by bobf (Monsignor)
on Dec 24, 2009 at 16:42 UTC ( #814260=note: print w/replies, xml ) Need Help??

in reply to selectall_hashref structure

If I understand the question (and your subsequent clarification) correctly, I think this should do the trick:

use strict; use warnings; use DBI; use DBD::SQLite; use Data::Dumper; my $dbh = DBI->connect( 'dbi:SQLite:dbname=test.sqlite', undef, undef, { RaiseError => 1, PrintError => 1, } ); eval { $dbh->do('CREATE TABLE evkeypairs (id INTEGER PRIMARY KEY NOT NULL +,key TEXT,value TEXT);'); $dbh->do(q!INSERT INTO evkeypairs (key, value) VALUES ('foo','bar' +);!); $dbh->do(q!INSERT INTO evkeypairs (key, value) VALUES ('kung','foo +');!); } or warn "$@"; my $sth = $dbh->prepare( 'SELECT * FROM evkeypairs' ); $sth->execute; my $href = $sth->fetchall_hashref( 'id' ); print Dumper $href; $dbh->disconnect; unlink 'test.sqlite'; __END__ $VAR1 = { '1' => { 'value' => 'bar', 'id' => '1', 'key' => 'foo' }, '2' => { 'value' => 'foo', 'id' => '2', 'key' => 'kung' } };

Thanks to AM for providing the code to create a test db.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://814260]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (11)
As of 2017-01-24 17:19 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (208 votes). Check out past polls.