—

              
#!/usr/bin/perl
use strict;
use DBI;
my $dns="DBI:mysql:host=localhost";
my $dbh=DBI->connect($dns, 'root', '') or die "Connect error: $DBI::error";
my $table_pattern='_test_db_%';
my $sql="SHOW DATABASES LIKE '$table_pattern'";
my $sth=$dbh->prepare($sql);
$sth->execute;
my $arrayref=$sth->fetchall_arrayref;
print join("\n", map{$_->[0]} @$arrayref), "\n";
for my $db_name (map{$_->[0]} @$arrayref){
    $sql="DROP DATABASE $db_name";
    $dbh->do($sql);
}
__END__
HideShow 27 lines of Pod
=head1 NAME
drop_mysql_biosql_test_dbs
=head1 SYNOPSIS
In shell command line,
    drop_mysql_biosql_test_dbs 
=head1 DESCRIPTION
THIS script is for bioperl-db developers to drop all test databases,
which may be generated during runing 'make test'.
NOTE: This script is only for mysql database, since within my knowledge on 
DBI, I do not know how to connect to Oracle host without specific database.
As well, I do not have Oracle installed. You are welcome to adapt it into
Oracle and other RDBMS! :-)
=head1 AUTHOR
Juguang XIAO, juguang at tll.org.sg
=cut