Foro - Perl en Español

Hola, un colega me está enviado una imagen codificada en base64, o sea, un poco de cadena de caracteres... pero no sé cómo recibirlo en Perl y mostrarlo en un HTML...

Él sólo tenía que enviarme un mensaje desde una aplicación Windows Phone con una foto y yo generar un html.

Estoy utilizando un eval, para controlar múltiples inserciones en una base de datos transaccional. la idea es ejecutar un foreach dentro del eval, y por cada elemento foreach hacer una inserción en tabla.


eval {
foreach my $elemento (@arreglo) {

insertar en tabla
}
};
.... otras sentencias ...


La pregunta es, que no sé por qué razón NO INGRESA dentro del eval y ejecuta el foreach. Directamente está ejecutando las sentencias ...

Hola, foro. Bueno, mi pregunta es esta: me gustaría poder coger el texto que se halla entre dos patrones o entre dos palabras. Lo único que por el momento he podido hacer es cargar en un array el texto y luego analizar los elementos del array en busca de esa secuencia de texto de inicio, y luego vuelvo a recorrer el array en busca de la secuencia final. Sin embargo, esto no es ni elegante ...

Agradecería si me pudiesen indicar si los array en Perl tienen un tamaño determinado. Estoy usando la función push(), y colocando unos 150 elementos en un array y me da problemas.

¿Es esto posible? ¿Cuál es el tamaño o cantidad de elementos máxima de un array en Perl? ¿Qué otro tipo de dato puedo usar?

¡¡¡Gracias!!!

Hago una llamada a un webservice, pero lastimosamente el resultado parece que me lo devuelve en JSON, pero tiene unos slash que me generan problemas... o barras invertidas...

Tengo mi my $content = $mech->content();

Y el contenido se me muestra como algo así:
$VAR1 = '{"d":"[{\\"Id\\" : \\"48790\\", \\"IdEdicion\\" : \\"1\\", \\"IdTipoItem\\" : \\"16\\", \\"IdSeccion\\" : \\"37\\", \\"AnteTitulo\\" : \\"Club gastronómico\\", \\"Titulo\\" : \\"\\u0027The Green Samán’\\", \\"Resumen\\" : \\"A Cali llega una propuesta en ...

¿Qué tal? Nuevamente solicitando de su gran ayuda. Tengo una aplicación en Perl la cual consulto a la bases de datos y me arroja aproximadamente 500 registros, por lo mismo la página crece bastante.

¿Existe algún módulo que me permita manejar una paginación que me muestre en pantalla de 20 en 20 registros?

La base de datos que utilizo es PostgreSQL.

¡¡¡ Saludos !!!

Estimados colegas:

Les envío un cordial saludo desde Guadalajara, México y quiero hacer una consulta, quizá alguien me pueda ayudar:

Necesito instalar los módulos siguientes en una máquina con Windows 7 Ultimate:

CGI::Session
Date::Calc
Date::Simple
DBD::MySQL
MySQL-DateFormat

Lo intenté varias veces por medio del Perl Package Manager(PPM) y no puedo pues recibo el mensaje de error:

ERROR: 401 Authorization required

Lo intenté a través del modo comando:

perl -MCPAN -e shell

y tampoco pude pues ...

Tengo este código y una base de datos PostgreSQL.
$Data3->Select2( 'cred07h.historia',
'pan = \'' . $$pan{'pan'} . '\' and deborcre=\'D\' and anomesci=\'' . $$ciclo{'anomesci'} . '\'', 'valor' );
$charge = $Data3->Fetch();
$Statements->ChargeAmount( $$charge{'valor'} );
$Data3->Finish();
Éste depende de un archivo .pm con nombre Data.pm que ejecuta los módulos Select2 y Fetch.

Estos están así:
sub Select2 {
my $self = shift;
my $sql = undef;
my @row = undef;
my @rows = undef; ...

¡Buenas! Soy nuevo en el foro y quería ver si me podíais echar un cable con un problema que tengo.

Veréis: desde un HTML, mando un parámetro (nombreusuario) a un archivo Perl, de este modo:
my $query = new CGI;
my %FORM = $query->Vars;
my $nombreusuario = $FORM{Usuario};
Después, necesito leer un fichero línea a línea, y en caso de que en ese fichero encuentre el parámetro que leí del HTML, pues escriba más ...

Intento lanzar procesos en paralelo mediante fork() en un servidor AIX y se quedan procesos zombis. El programa principal no debe finalizar nunca.

¿Cómo puedo evitar estos procesos zombis?
Hasta que no mato el programa principal permanecen.

------------------ PROGRAMA PRINCIPAL --------------------------------------
$interval = 60;
$mifile = "...";

# Cada registro del fichero será del tipo: hh:mm,accion_a_ejecutar

######################################
# M A I N
######################################
while (1){
$hh = sprintf("%02d",(localtime));
$mm = sprintf("%02d",(localtime));

# Se procesa las ...