My only significant modifications were “use strict” which means adding “my” to declare all the variables.

It would be nice if it also had an example of adding parameters to the prepared statement. I happened to look that up separately, which I’m adding to this comment in case someone else finds it useful.

Example: list every row where the user_id starts with “a”.

$sql = "select user_id from users where user_id like ?";
$sth = $dbh->prepare($sql) or die(DBI->errstr);
$sth->bind_param(1, "a%");
$rv = $sth->execute or die(DBI->errstr);
print "User ID's that start with 'a'\n";
while (my @row = $sth->fetchrow_array()) {
  my $tables = $row[0];
  print "$tables\n";
}
$rc = $sth->finish;

Results (from my table):

User ID’s that start with ‘a’

admin
alameda
arthur

THANK YOU!!!!!!!

remove $rv = and $rc = they are not needed on those lines.

Thanks for this code but i got the following:

- I copy the code and paste it in this file checkdb.sh.
- And run chmod +x checkdb.sh
- Then run ./checkdb.sh

Then the following occured:

Name “main::rv” used only once: possible typo at /usr/bin/check.db line 25.
Name “main::rc” used only once: possible typo at /usr/bin/check.db line 42.
Content-type: text/html

********** My Perl DBI Test ***************

Here is a list of tables in the MySQL database mysql.

columns_priv
db
event
func
general_log
help_category
help_keyword
help_relation
help_topic
host
ndb_binlog_index
plugin
proc
procs_priv
servers
slow_log
tables_priv
time_zone
time_zone_leap_second
time_zone_name
time_zone_transition
time_zone_transition_type
user
[root@drbl-01 ~]#

Currently installed Perl Modules:

[root@drbl-01 DBD-mysql-4.010]# instmodsh
Available commands are:
l – List all installed modules
m – Select a module
q – Quit the program
cmd? l
Installed modules are:
DBD::mysql
DBI
Perl
cmd? q

ANy suggestion on how to fix this?
Thanks again!

Stone