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.
Anonymous on Sep 04, 2009
jmma2Y <a href="http://wnirdpdsjvjm.com/">wnirdpdsjvjm</a>, [url=http://dlaolrmpqmzs.com/]dlaolrmpqmzs[/url], [link=http://jwupthgokyzd.com/]jwupthgokyzd[/link], http://hqqnqsrgfvbg.com/
Anonymous on Sep 25, 2009
AfyA6J <a href="http://mhattkojuahf.com/">mhattkojuahf</a>, [url=http://ckluezrbnuty.com/]ckluezrbnuty[/url], [link=http://hthidqjjooyz.com/]hthidqjjooyz[/link], http://bfcafyvwpeiy.com/