How to fetch results from a query using fetchall_arrayref in perl?

Question

My code:

my $sql_query = "select Event_datetime,Event,User from logs";
my $sth = $dbh->prepare($sql_query);
$sth->execute();
$testResults = $sth->fetchall_arrayref();
foreach my $row (@$testResults) {
    ($Event_datetime,$Event,$User) = @$row;
    print $query->h2($ID);
}

I would like to use a for loop to fetch the results of this query(once it is executed) such that each row has a number, i.e. since rows are listed sequentially, I need to access the row by its row number.

i.e. row 1 is 0; row 2 is 1; row 3 is 2 and so on...

for example:

for ($i=0; $i < $noOfRows; $i=$i+1) {
    ($ID,$Event_datetime,$Event,$User) = @$testResults;
    print $query->h3($ID, ' ,', $Event_datetime, ',', $Event, ',', $User );
}

However, this query does not give me any output. How do I access a particular row by its row number ?

Add use strict; and use warnings; to the top of your file. You are not showing a reproducible example. — xxfelixxx
– xxfelixxx, Commented Jul 25, 2017 at 3:24

ulix · Accepted Answer · 2017-07-25 06:32:56Z

0

You can see also Perl How to get the index of last element of array reference?

my $lastRowIdx = $#$testResults;
for (my $i=0 ; $i<=$lastRowIdx ; $i++ ) {
  my $rref = $testResults->[$i];
  print "@$rref\n";
} # endfor;

answered Jul 25, 2017 at 6:32

ulix

3731 gold badge2 silver badges15 bronze badges

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

Collectives™ on Stack Overflow

How to fetch results from a query using fetchall_arrayref in perl?

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related