Foro - Perl en Español

por **Dgrande** » 2012-05-30 13:41 @611

Hola amigos. a Ver si me podéis echar una mano. Me apasiona este lenguaje, pero me encuentra con un problemilla.

Recientemente me compré la licencia del perl2exe para Windows y he tenido diferentes problemas a la hora de compilar con el programa perl2exe. La verdad sea que siempre fueron solventados pues en la red siempre me dieron soluciones.

Ahora me encuentro con uno que no salgo. Es un programa escrito en Tk que realiza unas tareas de mantenimiento en una base de datos MySQL externa a través del módulo DBI.

Cuando compilo me da errores referentes a que no localiza las .dll, he probado diferentes fórmulas de incluirlas al compilar, pero no consigo que funcione.

Me imagino con tanta gente experta en Perl por este foro, encuentre a alguien, que de seguro, se haya encontrado con el mismo problema.

Por otro lado ¿existe algún compilador que genere exe más recomendado que compile desde Windows para diferentes S.O. como lo hace el perl2exe?

Otra cuestión para el administrador del foro: estoy suscrito desde hace mucho tiempo ya a algunos foros y nunca recibo los correos de nuevos hilos, ¿es normal esto?

Gracias, un saludo a todos los perleros.

#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.007 segundos,  usando GeSHi 1.0.8.4

Lo compilo con perl2exe de la siguiente manera:

perl2exe.exe vertablas.pl

Nos 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

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

#perl2exe_include DBI 

#perl2exe_include DBD::mysqlColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Espero que os sirva de ayuda,
Diego

Foro - Perl en Español

Compilando con perl2exe y DBI (mysql)

Compilando con perl2exe y DBI (mysql)

Publicidad

Re: Compilando con perl2exe y DBI (mysql)

Re: Compilando con perl2exe y DBI (mysql)

¿Quién está conectado?