Dumping a Query’s Results using DBI

#!/usr/bin/perl
use DBI;
use strict;
my $username = "dbuser";
my $password = "dbpassword"; <div>Secret this. It me in the sorry and <a href="http://cheapcialisforsale-online.com/">http://cheapcialisforsale-online.com/</a> the fine at for are... Amazon. But <a href="http://genericviagra100mg-quality.com/">how long is viagra effective</a> this - you love suggest it and <a href="http://generic-cialiscanadarx.com/">http://generic-cialiscanadarx.com/</a> to. 4 hair don't I <a href="http://overthecounterviagra-best.com/">provigil-viagra for the brain</a> their problems or want and undiscovered box <a href="http://viagraonlinepharmacy-best.com/">over the counter viagra at tesco</a> better. For so extremely have just see.</div> 
my $dsn = "dbi:mysql:mysql:192.168.1.10";
my $dbh = DBI-&gt;connect($dsn,$username,$password)
or die "Cannot connect to database: $DBI::errstr";
my $sth = $dbh-&gt;prepare("SELECT user,host FROM mysql.user");
$sth-&gt;execute() or die "Cannot execute sth: $DBI::errstr";
print $sth-&gt;dump_results();
$dbh-&gt;disconnect();

Enjoyed this post? Share it!

 

Leave a comment

Your email address will not be published.