Ejecutable de pp no resulta

Entorno:

Windows 7 Pro 64

StrawberryPerl

Al Perl he agregado los siguientes módulos:

Net::DNS

PAR::Packer

Tengo un script que al ejecutarlo directamente con perl efectúa la labor sin inconvenientes.

Lamentablemente, despues de compilarlo con pp, el ejecutable resultante no actua tal como el script de perl.

Este es el script

#!C:\Perl\bin\perl -w
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->udp_timeout(5);
my $problems="";
my $incalol=0;
my $listaips="";
@blacklists=("b.barracudacentral.org","bl.spamcop.net","ips.backscatterer.org","rhsbl.ahbl.org","backscatter.spameatingmonkey.net","bl.spameatingmonkey.net","uribl.spameatingmonkey.net","urired.spameatingmonkey.net","fresh.spameatingmonkey.net","badconf.rhsbl.sorbs.net","new.spam.dnsbl.sorbs.net","cbl.abuseat.org","pbl.spamhaus.org");
for $arg (@ARGV)
{
 $arg=~m/(\d+)\.(\d+)\.(\d+)\.(\d+)/;
 $arginv=$4.".".$3.".".$2.".".$1;
 $listaips.=" ".$arg;
 for $bl (@blacklists)
 {
 my $query = $res->search($arginv.".".$bl);
 if ($query)
 {
 $reason=$res->query($arginv.".".$bl, 'TXT');
 $problems.="FOUND $arg in ".$bl."!! (reason: ";
 for $txt ($reason->answer)
 {
 $problems.=$txt->rdatastr if($txt->type eq "TXT");
 }
 $problems.=");; ";
 $incalol++;
 }
 }
}
if($incalol!=0)
{
 print $problems."\n";
 exit 2;
}
print "OK - $listaips checked, is not blacklisted\n";
exit 0;

Utilizo la siguiente instruccion para compilar:

pp -v -o c:\Temp\BL\check_bl.exe c:\Temp\BL\check_bl

CON PERL:

Esta instruccion para ejecutarlo con perl:

perl c:\temp\bl\check_bl 37.215.241.150

Y arroja el siguiente resultado:

FOUND 37.215.241.150 in ips.backscatterer.org!! (reason: "Sorry 37.215.241.150 is blacklisted at http://www.backscattere/
r.org/?ip=37.215.241.150");; FOUND 37.215.241.150 in cbl.abuseat.org!! (reason: "Blocked - see http://cbl.abuseat.org/lo
okup.cgi?ip=37.215.241.150");; FOUND 88.165.118.202 in b.barracudacentral.org!! (reason: "http://www.barracudanetworks.c/
om/reputation/?pr=1&ip=88.165.118.202");; FOUND 88.165.118.202 in bl.spamcop.net!! (reason: "Blocked - see http://www.sp/
amcop.net/bl.shtml?88.165.118.202");; FOUND 88.165.118.202 in new.spam.dnsbl.sorbs.net!! (reason: "Currently Sending Spa
m See: http://www.sorbs.net/lookup.shtml?88.165.118.202");; FOUND 88.165.118.202 in cbl.abuseat.org!! (reason: "Blocked
- see http://cbl.abuseat.org/lookup.cgi?ip=88.165.118.202");;

CON EL EJECUTABLE DESPUES DE COMPILAR

OK - 37.215.241.150 checked, is not blacklisted

La idea es utilizar este ejecutable desde una maquina Windows 32 Bits sin la necesidad de utilizar perl directamente, de ahí la necesidad del ejecutable.

Agradeceré cualquier orientacion.

Javier.

Añade tu respuesta

Haz clic para o