Foro - Perl en Español

Hola, tengo un problema con el envío de correos pero solo con los CC, todo lo demás me funciona bien pero cuando paso la lista para enviar en copia solo le llega al primero que hay en la lista, he probado casi todos los separadores, coma, punto y coma, escapándolos para que no sean interpretados, pero nada, ¿tenéis alguna idea? Os paso mi script. Y de paso si le sirve a alguien, perfecto.

################ ...

Agradecería sí pusiesen indicarme cómo otener el último id insertado en una tabla.

El motor de base de datos es SQL Server 2000 y estoy usando DBD::ODBC. En MySQL he usado el método last_insert_id pero aquí NO existe. ¿¿Cómo puedo obtenerlo??

¡¡¡Muchas gracias, por la ayuda!!! :D

¡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?