Display SQL data on webpage using DBI

use DBI;
use strict;
use CGI qw/:standard/;
my $username = "dbuser";
my $password = "dbpassword";
my $dsn = "dbi:mysql:mysql:";
my $dbh = DBI->connect($dsn,$username,$password)
or die "Cannot connect to database: $DBI::errstr";
my $hosttolookup = "%";
my $sth = $dbh->prepare("SELECT host FROM mysql.user WHERE host LIKE ?");
or die "Cannot execute sth: $DBI::errstr";
my @mysqlhosts;
while (my $hostname = $sth->fetchrow_array()) {
if ($hostname =~ /%/) {
push (@mysqlhosts,$hostname);
print header,
start_html('MySQL Hosts Using Wildcards');
my $count = @mysqlhosts;
if ($count == 0) {
print p("No Hosts Using Wildcards");
else {
while (<@mysqlhosts>) {
print p("Host Wildcard: $_");
print end_html;

Enjoyed this post? Share it!


Leave a comment

Your email address will not be published.