各テーブルにレコードが何件入ってるか調べる
#!/usr/bin/perl use DBI; my $connect_info = [ 'dbi:mysql:dbhost=foo;dbname=bar', 'root', ]; my $dbh = DBI->connect(@{$connect_info}); my $tables = $dbh->table_info->fetchall_hashref('TABLE_NAME'); for (keys %{$tables}) { my $dbname = $tables->{$_}->{'TABLE_SCHEM'}; my $row = $dbh->selectrow_hashref("select count(*) as count from $_"); warn "$dbname: $_ : $row->{count}"; }
なんかこんな感じっぽい。