как из @rows достать строки и столбцы не используя data::dumper?
print $rows[0] скажет адрес
| Код |
use strict;
use diagnostics;
use Pg::PQ qw(:pgres_polling);
use Data::Dumper;
$Data::Dumper::Useqq = 1;
{ no warnings 'redefine';
sub Data::Dumper::qquote {
my $s = shift;
return "'$s'";
}
}
my $dbc = Pg::PQ::Conn->new(dbname => 'postgres',
user => 'user',
host => 'localhost') or die "cant connect";
$dbc->sendQuery("select * from addrbook limit 10");
while (1) {
$dbc->consumeInput;
last unless $dbc->busy
}
my $res = $dbc->result;
if($res){
my @rows = $res->rows;
#print "query result:\n", Dumper \@rows;
}
1;
__END__
|
|