Bueno, después de alguna prueba lo conseguí, así que dejo un ejemplo y los pasos de como lo conseguí por si alguna otra persona se encuentra con el mismo problema en un futuro.
Using perl Syntax Highlighting
#perl2exe_include Tk
use DBI;
use DBD::mysql;
use Tk;
my $mw = MainWindow->new;
$mw->title('perl en espanyol');
$mw->geometry('200x30');
my $hello = $mw->Button(
-text => 'Ver Tablas',
-command => \&Ver_Tablas
);
my $exit = $mw->Button(
-text => 'Salir',
-command => [ $mw => 'destroy' ]
);
$hello->pack( -side => 'left' );
$exit->pack( -side => 'right' );
MainLoop;
sub Ver_Tablas {
my $Entry_MYSQL_Tipo = "mysql";
my $Entry_MYSQL_Servidor = "0.0.0.0";
my $Entry_MYSQL_Usuario = "usuario";
my $Entry_MYSQL_Clave = "clave";
my $Entry_MYSQL_Basedato = "mibd";
my $dbh_leer = DBI->connect( "DBI:$Entry_MYSQL_Tipo:database=$Entry_MYSQL_Basedato;host=$Entry_MYSQL_Servidor",
"$Entry_MYSQL_Usuario", "$Entry_MYSQL_Clave" );
my $sth = $dbh_leer->prepare("show tables");
if ( !$sth ) {
die "Error:" . $dbh_leer->errstr . "\n";
}
if ( !$sth->execute ) {
die "Error:" . $sth->errstr . "\n";
}
while ( @row = $sth->fetchrow_array ) {
print "$row[0]\n";
}
}
Coloreado en 0.004 segundos, usando
GeSHi 1.0.8.4
Lo compilo con perl2exe de la siguiente manera:
perl2exe.exe vertablas.plNos generará el fichero ejecutable “vertablas.exe”. Si ejecutamos “vertablas.exe” nos encontraremos con un error de que no se localiza “libmysql.dll”.
Buscar “libmysql.dll” en “auto/DBD/mysql/”.
Copiamos “libmysql.dll” en el mismo directorio donde se ejecuta “vertablas.exe” y al fin funciona.
Nota: no incluir tal y como indica Indigo
Using text Syntax Highlighting
#perl2exe_include DBI
#perl2exe_include DBD::mysql
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Espero que os sirva de ayuda,
Diego