in reply to DBD:Pg getting output in an array

I'm not sure what you really expect to be in $ref, and what you get in $ref, but I guess that most of your question does not relate to DBD::Pg but simple DBI usage.

If you want to output your results as a table to the screen, I would use (say) Text::Table the statement:


$sth->execute or quit();

my @headers= @{ $sth->{NAME} };
my $rows= $sth->fetchall_arrayref();

my $t= Text::Table->new( @$rows );
print $t;

[download]

Replies are listed 'Best First'.
Re^2: DBD:Pg getting output in an array
by terrykhatri (Acolyte) on Jul 27, 2014 at 19:23 UTC
    Actually I need to use the arrays to generate a chart.
[reply]
      Try 
      my $labels = [];
my $data = [];
while (my $ref = $sth->fetchrow_hashref()) { 
  push @$labels,$ref->{'Labels'}; 
  push @$data,$ref->{'Data'}; 
}

      [download]
      poj
[reply]
[d/l]
        Thanks Poj, its 
        my $labels = []; 
my $data = []; 
 
while (my @row = $sth->fetchrow_array) { 
    push @$labels, $row[0];  
    push @$data, $row[1];  
}

        [download]
        Rgds. Terry
[reply]
[d/l]

      So instead of using the parts to output them as a table, maybe use the two separate parts to generate your chart?

      I'm not exactly sure where your problem lies in taking the data and putting it to use, so I'm uncertain about how to help you better. Maybe you can tell me what parts you have problems with?

[reply]

In Section Seekers of Perl Wisdom