Foro - Perl en Español

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 ...

«La mayor parte de los dispositivos GPS se comunican con un sencilla conexión serie. En PC antiguos, puedes acceder a ellos con un puerto RS232, pero de estos hay pocos entre los ordenadores modernos. Con un cable FTDI a USB se puede resolver.

En la Raspberry Pi, hay unos pocos pines en la cabecera GPIO que se pueden usar para dispositivos serie. Es accesible vía /dev/ttyAMA0. Aquí hay un pequeño inconveniente: el Pi usa este ...

Pod::Cpandoc: un perldoc para módulos que no tienes instalado.

cpandoc es un script Perl que actúa como perldoc, salvo que en vez de devolver No documentation found for "Uninstalled::Module" (No se encontró documentación para el módulo...), buscará en CPAN por la documentación de ese módulo.

Una característica importante de cpandoc es que solo accede al índice en la web si no tienes el módulo instalado. Así, si usas cpandoc en un módulo que ya tengas ...