Fetch 2 values using selectrow_array in Perl

Question

I recently figured that there is a selectrow_array function to fetch values from databases. I'm getting following error when I'm using it. I wonder what is the issue here and couldn't find an alternative way to do this.

Code is:

my $db_connection = DBI->connect($dsn, $dbuser, $dbpassword ) or die $DBI::errstr;

my $sql_statement = "SELECT customer_id,quota FROM customer_call_quota WHERE quota>=1";

while (my $row = $db_connection->selectrow_array($sql_statement)) {
     my ($cust_id, $quota) = @$row; #<---- error line
 }

my $rc = $db_connection->disconnect ;
return "ok";

Error:

Can't use string ("value") as an ARRAY ref while "strict refs" in use at code.pl line ...

ikegami · Accepted Answer · 2017-03-13 07:39:26Z

2

Two problems.

selectrow_array doesn't return a reference to an array. That's selectrow_arrayref.
selectrow_* only returns the first row.

Solutions:

# Wasteful

my $sth = $dbh->prepare($sql_statement);
$sth->execute();
while (my @row = $sth->fetchrow_array()) {
    my ($cust_id, $quota) = @row;
    ...
}

or

my $sth = $dbh->prepare($sql_statement);
$sth->execute();
while (my ($cust_id, $quota) = $sth->fetchrow_array()) {
    ...
}

or

my $sth = $dbh->prepare($sql_statement);
$sth->execute();
while (my $row = $sth->fetch()) {
    my ($cust_id, $quota) = @$row;
    ...
}

edited Mar 13, 2017 at 7:39

answered Mar 13, 2017 at 7:34

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Yasiru G Over a year ago

Ah, its only returns the first row. Thanks for the answer!

ikegami Over a year ago

Yes, but it's actually the other problem that resulted in the error you got

Collectives™ on Stack Overflow

Fetch 2 values using selectrow_array in Perl

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related