Question

Below, is the code to connect mysql database and retrieving results using perl.

In the below example, samples table has 10 columns. I just want the second and third columns of record 99 into variables.

Can some one help me in this?

use strict;
 use warnings;
 use DBI;

my $dbh = DBI->connect('dbi:mysql:perltest','root','password') or die "Connection Error: $DBI::errstr\n";
my $sql = "select * from samples where record='99'";
my $sth = $dbh->prepare($sql);
$sth->execute or die "SQL Error: $DBI::errstr\n";
while (my @row = $sth->fetchrow_array) {
 print "@row\n";
 } 

Thanks in advance

Answer 1

This code will get you the second and third columns of the row into variables:

while (my @row = $sth->fetchrow_array) {
     $var1 = @row[1];
     $var2 = @row[2];
}