Foro - Perl en Español

Hola a todos...

Una duda bastante sencilla. Tengo la siguiente línea de código...

$insert->execute ($row) or die "No se puede insertar en la tabla : $dbh->errstr\n";

pero quisiera en vez de terminar el script ahí, llamar a un procedimiento Enviar_Correo y bueno, desde dentro de este ya enviaré un correo con el error y después terminare el script....

Gracias por adelantado...

Saludos...

Scorpion

http://www.cs.cf.ac.uk/Dave/PERL/node180.html

Estoy haciendo un cliente SMTP, similar al del link puesto pero no usa recv sino un chomp directo al filehandle creado por Socket.

El problema está al tomar la salida del servidor, es decir, cuando el servidor imprime los mensajes el programa se queda esperando y no sé por qué ya que no da ningún error y si hago lo mismo pero por telnet no hay problema.

¿Qué ...

Hola a todos...

Resulta que tengo un script que se conecta a un BD en Postgres y lee registros que inserta en otra y despues los elimina de la primera (estamos hablando de unos cuantos registros, alrededor de 500.000).

El problema es que cuando ejecuto el script directamente (./script.pl) se me queda por la mitad añadiendo los artículos (siempre en un lugar diferente), sin embargo cuando debugeo el script (perl -d script.pl) corre sin problemas ...

Hola, estoy haciendo un programa en el que desde un servlet llamo al Perl para que me haga una búsqueda y luego la redireccione a otro servlet.
Ahora viene mi duda, ¿cómo puedo saber, en el código Perl, la dirección IP del servlet que me ha llamado?

Si alguien me puede ayudar le estaría muy agradecido.

Gracias y un saludo.

Buenas tengo una duda.

Tengo varios usuarios que envían sus fotos. El problema surge cuando mediante el cgi, estos suben archivos de texto: word, excel, power point ..
if (-e $imagen){
$archivo_imagen="../carpeta/imagenes/$contador.jpg";
open (IMAGEN, ">$archivo_imagen");
while ($lectura = read($imagen, $cadena, 1024)){
print IMAGEN $cadena;
}
close IMAGEN;
}

¿Cómo hacer para que determine que las extensiones: .doc, .ppt y .xls, las cuales no son permitidas o sólo las extensiones jpg y gif que deben ser ...

Muy buenas tardes. Como pueden ver soy novato en Perl. Entonces me gustaría saber dónde puedo conseguir un buen tutorial de Class::DBI que esté en Español. Gracias por la ayuda.

Hola,

¿cómo se puede, usando la función sort, ordenar eliminando duplicados?

Ej.:
@a = (1,4,2,2,6,7,7,8,1,3);

que muestre 1,2,3,4,6,7,8

Saludos
8)

Buenas, estoy intentando mandar un correo. Tengo este ejemplo

#!/usr/bin/perl
#~.

use Email::Send;

my $message = <<'__MESSAGE__';
From: [email protected]
To: [email protected]
Subject: Nuevo boletin

Hay un nuevo boletín
__MESSAGE__

my $mailer = Email::Send->new(
{
mailer => 'SMTP',
mailer_args =>

}
);
$mailer->send($message);

cuando ejecuto me sale el siguiente error

Can't locate Email/Send.pm in @INC ...

Saludos, estoy tratando de crear una archivo XML con el módulo XML::Simple que tenga más o menos la siguiente estructura:
<ajaxresponse>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>1</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>2</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>3</numero>
</item>
</ajaxresponse>


Esto lo puedo obtener haciendo esto:

my $lista = {
'item' => [
{
'numero' => '1',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' => '2',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' ...

Leí el tutorial de Cookies y Perl, pero lo que no me queda muy claro es:
Si yo tengo un formulario en html, y quiero que cuando cierre su sesión el usuario y abra nuevamente su sesión el formulario le aparezca nuevamente como ella lo dejo. Esto se tendría que realizar con Cookies, para guardar la info del formulario, ¿no?

Desde ya muchas gracias.
Maxy