Foro - Perl en Español

¡Hola!

Os agradecería mucho que me echarais un cable con un problemilla que estoy teniendo a la hora de optimizar un código.

Estas son las variables que tengo:

$snp1 $snp2 $snp3 $snp4 $snp5 $snp6

Y tengo esta estructura

for ($j=0; $j=6; $j+=1)

if ($snp$j......
.
.
.
.

Como igual suponéis, lo que yo quiero es aprovechar que la variable $j va ir cambiando para convocar los diferentes $snp.

Es decir, como primero $j=1, pues ...

Hola, soy nuevo en el mundo de los CGI, y estoy teniendo un problema que no consigo arreglar por más vueltas que le doy:

Por una parte tengo este mini cgi, que muestra un combo en el cual se elige un código numérico entre 1 y 100:

my $entrada="numero_usuarios.txt";
open (ENTRADA,"$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
print <<ENDHTML;

<LABEL class=hh3><p><strong><center>Reservar rango</center></strong></p></LABEL>
<tr><td colspan="8"><center><SELECT class=w144 id=PARAMETRO tabIndex=3 name=PARAMETRO><\center>
ENDHTML
while (<ENTRADA>) ...

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?

Desde hace unas semanas, Gabor Szabo publica en su canal de Youtube unas capturas de vídeo sobre el uso y configuración del IDE para Perl (y escrito en Perl), Padre.

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.