Foro - Perl en Español

Hola, Foro.

Lo que intento conseguir es que en base al siguiente código realice lo siguiente:

Abrir un archivo y leer la última cadena que contenga caracteres; posteriormente guardar esta cadena en un arreglo; una vez guardada realizar una búsqueda de un número que se encuentre en el rango de 0-5; una vez encontrado el número incrementar el valor de este en 1; posteriormente agregar una cadena de caracteres con la variable incrementada al mismo ...

Tengo el siguiente código:

#!/usr/bin/perl
use CGI;
use DBI;
use DBD::Pg;

#use CGI::Carp qw(fatalsToBrowser);
#print error;
#print "Content-type: text/html;charset=UTF-8\n\n";

my $dbh = DBI->connect( "DBI:Pg:dbname=pruebaconex;host=localhost;port=5432",
"directorio", "directorio", { pg_enable_utf8 => 1 } )
or die "Unable to connect: $DBI::errstr\n";
my $sth = $dbh->prepare("SELECT columna,columna1 FROM tabla");
$sth->execute();
while ( @row = $sth->fetchrow_array ) { push( @row1, $row ) }

#print "en el modulo:@row";
$sth = $dbh->disconnect();
print "aki esta el:@row1";



y m arroja el ...

Resulta que tengo este trozo de código:

foreach my $l (@$lista) {
$i++;
my $msg = $msg->build(
From => '[email protected]',
To => '[email protected]',
Subject => "!! Vende en 7 Dias",
Type => 'text/html',
Data => $l->{'email'}
);

#$msg->send('smtp', "mail.kolonosgroup.com", AuthUser=>"[email protected]", AuthPass=>"2011Asuseepc");
$msg->send;
sleep 5;

}
pero resulta que a mi correo solo llegan dos correos... es decir, parece que no me envía todo, y mi @lista es:
$VAR1 = [
{
'email' => ...

Nueva versión de la distribución básica de Rakudo, para programar en Perl v6, incluyendo la última versión de la máquina virtual Parrot.

Abstenerse débiles de corazón. :wink:

Artículo

Estos son los cambios con respecto a la versión anterior:

• Se ha implementado el tipo de dato FatRat, y la aritmética Rat, se ajusta por defecto, y de forma correcta, a Num, en caso de que el ...

Mi pregunta es cómo poder capturar en un array todo el contenido de un Listbox que usa Tk, me refiero a tenerlo en un array para después mostrarlo.

para su descarga libre, en formato PDF. Aunque si queréis, también podéis pagar por él.

En esta segunda versión, además de correcciones, incluye todo lo nuevo de Perl v5.14.

Artículo (en inglés)

Tengo una pregunta sobre el módulo Email-Send-SMTP. Mi pregunta es cómo poder mandar código HTML en el body, eso es algo que se soluciona usando content type pero en este módulo no sé cómo se hace.

¿ Alguien me puede ayudar ?

Hola, soy yo de nuevo :D

Esta vez me pasa que he intentado instalar LWP pero necesito varios prerequisitos, uno de los cuales es HTTP::Date, lo instalé con cpanp i HTTP::Date, y se instala satisfactoriamente.

Mi problema es que al volver a intentar instalar LWP me sale el mismo error "Warning: HTTP::Date 6 not found. We have 1.47."

Así que lo instalé manualmente descargándolo desde cpan.org ...

Hola, soy nuevo en Perl, tengo CentOS y la verdad es que ya he buscado mucho por Internet sin encontrar ninguna respuesta a mi problema...

Me pasa que al abrir la shell de cpan (perl -MCPAN -e shell) y al hacer cualquier cosa que requiera salir a Internet me da el siguiente mensaje:
-Esto para install CPAN

Is it OK to try to connect to the Internet?
Fetching with LWP:
...

Hola, recién me inscribí en este foro, hace tiempo que uso Perl tanto en Linux como en Windows (ActivePerl) con excelentes resultados, ya que Perl siempre me ha sacado de apuros en temas complejos de resolver con otros lenguajes y a veces he usado como socio expect generando tareas automatizadas en tiempo real. Igual considero que mi nivel de conocimiento es básico o intermedio, ya que no domino clases y objetos. Espero aportar en algo ...