Foro - Perl en Español

Esto es la continuación del proyecto anterior: http://perlenespanol.com/foro/problemas-con-pdf-reporter-y-barcode-t8948.html
El hilo anterior está resuelto, esto es una continuación.

Lo que necesito realizar es: luego de generar el pdf (enviando la cabecera), debería eliminar de la base de datos las credenciales generadas, y recargar la página HTML.

El script funciona hasta la eliminación inclusive, pero no sé cómo realizar que la página web se recargue.

Sospecho que no se puede realizar.

Dejo el final del código de ...

Hola. Tengo el siguiente código:

#!usr/bin/perl

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0" );
$nave->timeout(10);

my $code = toma("https://www.google.com");

print $code;

sub toma {
return $nave->get( $_ )->content;
}


El problema inicial era que no leía nada porque hace falta un módulo para leer el https. Después instalé lo necesario con el comando:

ppm install http://www.eekboek.nl/dl/ppms/Crypt-SSLeay.ppd

Y todo ...

Hola. Para subir (guardar) varios archivos, ¿cuál es la sentencia correcta? Inicié subiendo un solo archivo de la siguiente manera:

#---Recibo el nombre del archivo a guardar
my $filename = $query->param('tipo_reporte');

my $upload_filehandle = $query->upload("tipo_reporte");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;


La pregunta es: ¿para subir múltiples archivos, la manera de hacerlo es por medio de un ciclo foreach()? ¿O existe ...

Un buen día. Estoy tratando de realizar una matriz para simular mutaciones.
La característica de la matriz sería:

filas igual a los 64 codones
columna 1 igual a exones

codón 1 codón 2 codón 3 ... codón n
UUU UUC UUG ...
exon 1 frecuencia
de mutación
exon 2

exon 3
.
.
.
exon m

Lo anterior sería el esquema de la matriz.

¿Me podrían colaborar en cuáles serían los pasos para empezar ...

Saludos... Buenas tardes. Por favor, necesito migrar este programa de Python a Perl,
que realice exactamente lo mismo.

Desconozco mucho Python.

def check():

global br
global passwords
try:
br = mechanize.Browser()
cj = cookielib.LWPCookieJar()
br.set_handle_robots(False)
br.set_handle_equiv(True)
br.set_handle_referer(True)
br.set_handle_redirect(True)
br.set_cookiejar(cj)
br.set_handle_refresh(mechanize._http.HTTPRefreshProcessor(), max_time=1)
Si alguien puede ayudarme, por favor.

Agradecería me expliquen cómo hacer un formulario HTML que contiene un input file pero donde el archivo no está residiendo en la PC del operador, sino que reside en un servidor. Gracias.

Cómo debo hacer para anexar un archivo a un formulario, donde el archivo reside en un servidor y no en la computadora del usuario.

Gracias.

Hola, compañeros Perleros, ¿qué tal? Pues nuevamente con un problema de programación (¡ja, ja, ja!) Les platico un poco, ya que no he encontrado la manera de hacer esto.

Tengo un script que me genera una imagen de una tabla con una lista de números y la dibujo con GD::Simple.

Lo que quiero hacer es ordenar estos datos de manera que el primer grupo se escriba en forma de lista y al terminar ese grupo ...

Hola, estoy desarrollando un complemento para un sistema web de una biblioteca.

Básicamente lo que hace el sistema es generar un archivo pdf con unos carné de lectores, el cual debe incluir un código de barras por cada uno.

Cuando inserto el texto, y dibujo las líneas delimitadoras, e incluso agrego el logotipo de la biblioteca, el archivo pdf se genera y abre sin inconvenientes.

Pero cuando agrego el código de barras, al intentar abrir ...

my $executeCommand = $acommands{$tmpCommand};
$SIG{'KILL'} = sub { $processCommand->exit(); };
my $processCommand = threads->new(\&$executeCommand,$tmpCommand,"Valor2");
$processCommand->join();
$processCommand->kill('KILL');


Hola. Me gustaría saber la correcta implementación de threads en Perl, para evitar sobrecarga del programa, ya que si le envío, por ejemplo, 10 peticiones en segundo, me da respuestas ralentizadas.

P.D.: estoy construyendo un programa para gestión de servidores IRC donde podría recibir muchas más simultáneamente, y sería engorroso que el programa se 'pille' ...

Hola. Uno de los requisitos de la aplicación que estoy desarrollando es que al dar clic a una imagen, abra una nueva ventana, pero no la abre, como esperaría. El código es el siguiente:

#! /usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
use DBI;
use strict;
use URI::Escape;
use Switch;
use utf8;
my $JSCRIPT=<<EOF;

function ventana_anexos(pagina){
alert ("HOOOOLLLLAAA");
return;
var opciones="toolbar=no, location=no, directories=no, status=no, menubar=no,scrollbars=no, resizable=no, width=408, height=120, top=85, left=140";
window.open(pagina,"",opciones);
}
my $cgi ...