Foro - Perl en Español

Hola, voy a conectar Asterisk y MySQL con Perl pero tengo una falla en la conexión, ¿alguien me podría dar una mano?, la cosa se cae en el connect, si lo mando a comentario el resto del código va bien, ¿alguna idea?, Aquí dejo el código. Es un Linux CentOS.

#!/usr/bin/perl

use Asterisk::AGI;
use File::Basename;
use DBI;
use POSIX;

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();

## PRINCIPAL --------------------------------------------------------------------------
my %input = $AGI->ReadParse(); ...

Hola a todos.

Ya hace tiempo que no escribía, pero me ha salido algo nuevo y quiero saber si alguien lo ha hecho. Tengo un archivo en Perl el cual me traigo datos y los exporto a Excel pero en dichos datos hay imágenes, es decir un reporte con texto e imágenes, pero al exportarlo a Excel no me trae las imágenes pues éstas las guardo en una tabla solamente la liga y no la ...

Tengo un script que parsea log que le entra por un socket udp y estoy llegando
el límite de un procesador en una máquina de cuatro.

Estuve pensando la mejor manera de aprovechar los cuatro procesadores y finalmente
me decidí a hacerlo multihilo porque suponía que usar el mismo segmento de memoria
(teniendo en cuenta que ithreads no mantiene el mismo segmento) para pasar datos
entre hilos es la forma más 'eficaz' que veo.

He ...

Hola, me gustaría saber cómo enviar un archivo a varias personas por e-mail desde Perl. Estado mirando algunos temas que se han publicado pero aparte de que no tengo muy claro cómo hacerlo me gustaría saber cuál es el mejor módulo hasta el momento para realizarlo. ¿El módulo MIME::Entity sería la mejor opción?

Tengo el siguiente código:

open (PALABRAS, 'palabras.txt');
my @palabras = <PALABRAS>;
chomp @palabras;
close(PALABRAS);

for ( $i = 0; $i < @palabras; $i++ ) {

print $palabras,"\n";

sleep(20);

}

palabras.txt:

aaa
bbb
ccc
ddd
eee
fff
ggg
hhh
iii
jjj
kkk
lll
mmm
nnn
ooo
ppp
qqq
rrr

¿Cómo podría pausar y después reanudar el programa (pulsando una tecla o una combinación de teclas) en el mismo punto donde hice la pausa?

Hola, estoy trabajando con el módulo CGI, pero me gustaría comenzar a utilizar CGI::Fast, ¿me podrían orientar en lo siguiente?

1- ¿Qué cambios debo hacer en la configuración del Apache?
2- ¿Debo instalar algo más, además del módulo CPAN CGI::Fast?
3- ¿Puedo correr aplicaciones tanto que utilicen CGI, como aplicaciones que usen CGI::Fast?
4- Estoy usando el módulo CGI::Session con módulo CGI. ¿Puedo utilizar CGI::Session conjuntamente con CGI::Fast?

Muchísimas gracias, por su ayuda.

Hola a todos:

Recién hice un módulo para paginación de algunos reportes que son muy grandes (arriba de 20-30 páginas) y me funciona bien, pero lo que no es nada práctico es que al cliquear el botón Atrás en cualquier browser, me va llevando por todas las páginas que he visitado.

¿Cómo puedo evitar esto?

Cualquier tip es bienvenido.

Saludos a todos,
el problema es este: tengo en un script el siguiente código para consumir un servicio de autentificación con LDAP hecho en PHP:

use SOAP::Lite +trace => ;
my $client = SOAP::Lite->service($url) || die "error";
my $resultado = $client->autenticarUsuario($user,$pass,$dominio);

al poner el debug tengo esta salida:

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:typens="urn:PasarelaAutenticacionWS" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><typens:autenticarUsuario><pUsuario xsi:type="xsd:string">user</pUsuario><pContrasenna xsi:type="xsd:string">pass</pContrasenna><pDominio xsi:type="xsd:string">dominio</pDominio></typens:autenticarUsuario></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Fri, 08 Jul 2011 17:07:06 GMT ...

¡Hola! Estoy tratando de crear una estructura así:

$VAR1 = ;

Pregunté y me dijeron que es un array de 3 posiciones, donde en cada ...

¡Hola!

Estoy intentando hacer unos unit test con Perl y quisiera usar mock objects.

¿Me podrían explicar cómo se usan? Porque busqué y no encontré nada.

¡Desde ya, muchas gracias!

¡Saludos!