Re: selectall_hashref structure

#!/usr/bin/perl -- 

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 "$@";

    print Dumper( $dbh->selectall_hashref('select * from evkeypairs ',
+ [ 'id','key']) ),"\n";
    print Dumper( $dbh->selectall_hashref('select * from evkeypairs ',
+ 'id') ),"\n";

    $dbh->disconnect;
    use autodie qw' unlink ';
    unlink 'test.sqlite';
}
__END__
$VAR1 = {
          '1' => {
                   'foo' => {
                              'value' => 'bar',
                              'id' => '1',
                              'key' => 'foo'
                            }
                 },
          '2' => {
                   'kung' => {
                               'value' => 'foo',
                               'id' => '2',
                               'key' => 'kung'
                             }
                 }
        };

$VAR1 = {
          '1' => {
                   'value' => 'bar',
                   'id' => '1',
                   'key' => 'foo'
                 },
          '2' => {
                   'value' => 'foo',
                   'id' => '2',
                   'key' => 'kung'
                 }
        };
[download]

Comment on Re: selectall_hashref structure Download Code

Replies are listed 'Best First'.

Re^2: selectall_hashref structure
by 0xbeef (Hermit) on Dec 24, 2009 at 13:37 UTC

If I were to use a similar hash structure to your example in this function, it would now need to be called in the following (tedious) way:

myfunction($id,{ kung => { value => foo }, foo => { value => bar}});
[download]

Here is the ideal hash structure with some example attributes that I am trying to attain through the select:

Attributes now: $VAR1 = {
          '49CBAF4B' => {
                          'occurrences' => 999,
                          'object' => 'device123',
                          'timestamp' => 1261660376,
                          'value' => 90,
                          'max' => 96
                        }
        };
[download]

If this cannot be done, I might be forced to map the results to a hash with the desired layout, or look at a different approach altogether.

Niel

[reply]
[d/l]
[select]


Just another Perl shrine
	PerlMonks