Foro - Perl en Español

Un simple script para mandar mensajes de correo a donde quieran. Para usarlo necesitan una cuenta en Gmail. Lo nuevo de esta versión es que usé otro módulo que hace que el script no tenga tantas dependencias como en la última versión.

El código:
#!usr/bin/perl
#DH Bomber 0.2
#Coded By Doddy H

use Win32::OLE;

head();

print "\n Host : ";
chomp( my $host = <stdin> );

print "\n Port : ";
chomp( my $puerto ...

Hola a todos,

Tengo un problema curioso que resolver y que me está quitando el sueño. Necesito conseguir una expresión regular que capture solo 20 caracteres de estructuras como las siguientes.

>palabrasuperlarga_2_189137

/^>(\w+)/ -> Así capturo la palabra en $1, pero no limito el número de caracteres a 20

/^>{1,20}$/ -> Así no me funciona, y no le paso nada a $1, sino a $& (pero tampoco rescato nada en la variable)

/^>{20}$/ -> ...

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 ...