Select, Execute, and Fetch a Row as an Array : select « Database « Perl






  1. Perl
  2. Database
  3. select

Select, Execute, and Fetch a Row as an Array

   

use DBI;
my $dbh=DBI->connect(qq(DBI:mysql:database=sample_db;user=root;password=)) or die "Can't connect";
my $sth=$dbh->prepare("SELECT name, salary, age FROM employee");

$sth->execute();

while(my @row=$sth->fetchrow_array()){ 
      print "name=$row[0]\n";      
      print "salary=$row[1]\n";    
      print "age=$row[2]\n\n";  
}
print $sth->rows, " rows were retrieved.\n";

$sth->finish();
$dbh->disconnect();








Related examples in the same category

1.Select, Execute, and Dump the Results
2.Select, Execute, and Fetch a Row as a Hash
3.Simple query
4.The First SQL Query
5.Using a Placeholder
6.Creating a Web Page Integrated with SQL Data
7.Creating an HTML Table