snippetsmania.com

Using MySQL in Perl with DBI example

#! /usr/bin/perl -w
use strict;
use DBI;
 
my $database = "yourdatabase";
my $user = "user1";
my $passwd = "hidden"; 
my $count = 0;
 
my $select="
  select a,b,c from perlTest ";
 my $dsn = "DBI:mysql:host=localhost;database=${database}";
my $dbh = DBI->connect ($dsn, $user, $passwd)
  or die "Cannot connect to server\n";
 
my $s = $dbh->prepare($select);
$s->execute();
 
while (my @val = $s->fetchrow_array()) {
  print " $val[0]  $val[1]  $val[2]\n";
  ++$count;
}
 
$s->finish();
$dbh->disconnect ( );
 
exit (0);

Uses DBI module to query a MySQL database.

Tags