Gossamer Forum: General: Perl Programming: Using Perl to count MySQL tables

Apr 11, 2005, 5:26 AM

Jorn

New User (2 posts)

Apr 11, 2005, 5:26 AM

Post #1 of 4

Shortcut

Using Perl to count MySQL tables

Hi all,

I'm trying to count the amount of tables that I have in a database. So I was wondering if this is possible or not.

I want to do this because my script sort of depends on the amount of tables in a database. Now I have it hardcoded, but I do not really like that. So I hope anybody knows this.

Thank you in advance,

Jorn.

Apr 11, 2005, 6:08 AM

Andy

Veteran / Moderator (18441 posts)

Apr 11, 2005, 6:08 AM

Post #2 of 4

Shortcut

Re: [Jorn] Using Perl to count MySQL tables In reply to

Hi,

I'm not sure if you can do this. Counting "rows" is easy enough.

For tables, you'd probably need something like;

Code:
# connect here... 

my @tables = qw/table1 table2 table3 table4/; 
my @bad; 
foreach my $table (@tables) { 
  my $sql = qq{SELECT * FROM ? }; 
  $sth->prepare($sql); 
  $sth->execute($table) || push @bad, $table; 
} 

if ($#bad > 0) { 
  print "Some table's couldn't be found. They are as follows;\n<br><br><ul>"; 
  print join("<li>",@bad); 
  print "</ul>"; 
}  

# close connection

Hopefully something like that will work :)

Cheers

Andy (mod)
andy@ultranerds.co.uk

Apr 11, 2005, 7:43 AM

Jorn

New User (2 posts)

Apr 11, 2005, 7:43 AM

Post #3 of 4

Shortcut

Re: [Andy] Using Perl to count MySQL tables In reply to

Hi Andy,

Thank you for your reply. Unfortunately, your script is of little use to me since you still need to hardcode the tables into an array. I guess I'll have to think about something else then.

Thanks,

Jorn.

Apr 11, 2005, 8:27 AM

fuzzy logic

Enthusiast (854 posts)

Apr 11, 2005, 8:27 AM

Post #4 of 4

Shortcut

Re: [Jorn] Using Perl to count MySQL tables In reply to

I think what you want is just "show tables".

Code:
my $tables = []; 

my $sth = $dbh->prepare("show tables"); 
$sth->execute(); 

while (my $table = $sth->fetchrow()) { 
  push @$tables, $table; 
} 

my $count = scalar @$tables;

Philip
------------------
Limecat is not pleased.

Last edited by:

fuzzy logic: Apr 11, 2005, 8:55 AM