Foro - Perl en Español

Hola.

Tengo el siguiente problema, agradeceré cualquier cooperación.

Descripción del 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, después de compilarlo con pp, el ejecutable resultante no actúa tal como al ejecutarlo con Perl.

Este es el script:
#!C:\Perl\bin\perl -w
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->udp_timeout(5);
my ...

Tengo un problema con algunos de mis códigos, que pueden correr desde consola, pero si intento acceder desde un navegador me muestra "Internal Server Error". Al verificar el log de errores, veo que no puede encontrar un módulo que yo mismo hice. Está en una carpeta y me dice que no lo encuentra "EXO/Com.pm".

Estoy trabajando en Mountain Lion (OSX) por si es un dato de utilidad.

Alguien habrá pasado por la misma situación o ...

Tengo el siguiente código en Delphi :

function Check(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): string;
var
hInet: HINTERNET;
hHTTP: HINTERNET;
hReq: HINTERNET;
Buffer: array of AnsiChar;
i, BufferLen: Cardinal;
const
accept: packed array of LPWSTR = (PChar('*/*'), nil);
header: string = 'Content-Type: application/x-www-form-urlencoded';
begin
Result := '';

hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
try ...

Hola.

Estoy tratando de instalar el módulo Term::Screen sobre Perl 5.14.2 sobre Windows, pero me da error.

Cuando intento ejecutar el programa me dice:
Can't locate Term/Screen.pm in @INC (@INC contains: D:/Dwimperl/perl/site/lib D:
/Dwimperl/perl/vendor/lib D:/Dwimperl/perl/lib .) at menu.pl line 7.

El term::cap está instalado bien.

Me voy al cpan dependencias y le doy clic a un icono con forma de escarabajo y busco mi versión 5.14.2 y me sale fail.

¿ Eso que quiere decir ...

Hola.

Preguntaros si conocéis algún libro sobre wxperl.

Tengo una duda sobre las tuberías.

¿Yo puedo comunicar un programa C por medio de tuberías con Perl? ¿Esta comunicación sería igual de rápida que si se utilizara Inline::C?

Se puede utilizar las tuberías con C para aumentar la velocidad de proceso de Perl, es decir, que C calcule y los resultados los pase por una tubería a Perl.

Yo tengo un programa en C que escribe en un fichero.txt y luego Perl lee ese ...

Hola, tengo un problema con Apache debido al timeout de una función.

Me explico: tengo una consulta por Ajax que ejecuta una función hecha en Perl. El problema es que dependiendo de los filtros que se utilicen (más o menos filtros) para una búsqueda en una base de datos puede llegar el caso de que se me produzca un timeout con el consiguiente error.

¿Existe alguna manera de detectar ese timeout para mostrar una alerta ...

Hola,

Estoy intentando actualizar la versión 5.10.1 de Perl que trae CentOS 6.4 a la versión 5.14.4.

Una vez instalada la versión 5.14.4 he hecho:

# mv /usr/bin/perl /usr/bin/perl5101
# ln -s /usr/local/bin/perl /usr/bin/perl

de esta manera no pierdo la versión antigua. Lo único que tendría sería que instalar los módulos de CPAN, de nuevo.

Los módulos que tenía antes son GD,Image::GD::thumbnail,DBI y JSON.

He tenido problemas con GD pero forcé la instalación.

El problema ...

He estado tanteando Getopt::Long para darle un poco más de robustez a mis programas. Las posibilidades que ofrece para controlar los parámetros pasados al programa son exactamente lo que buscaba. He hecho este código para probarlo:


#!/usr/bin/perl

use v5.12;
use strict;
use warnings;
use MIME::Base64;
use Getopt::Long;

#Programa de codificación y decodificación en base64. De acuerdo con la información del módulo #MIME::Base64 codificaremos en múltiplos de 57 bytes: "This ensures that the base64 ...

¿Cómo declaro las variables $n1, $n2 y $resultado para que no me dé este error? Ahora, si le pongo my $n1; ya no me da error, pero my() es local. ¿Cómo la declaro global en este programa?

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
print "Introduce un primer numero:\n";
$n1 = <>;
print "Introduce un segundo numero:\n";
$n2 = <>;
$resultado=$n1+$n2;
print "El resultado es:$resultado\n";

Global symbol "$n1" requires explicit package name at sumanumero3 line ...