Foro - Perl en Español

Lo que necesito es hacer un LOOP dentro de otro LOOP.

La idea es que recorro registros por medio de un TMPL_LOOP y pues cada registro de estos tiene un select() con varias opciones.

Algo más o menos así:<TMPL_LOOP REGISTROS>

<TMPL_VAR NAME=NOMBRE>

<SELECT>
<TMPL_LOOP CATEGORIAS>
<OPTION><TMPL_VAR NAME=NOMBRE_CATEGORIA> </OPTION>
</TMPL_LOOP>
</SELECT>

</TMPL_LOOP>

Pero los LOOP vienen de datos diferentes:$template->param(CATEGORIAS => \@listado_categorias );
$template->param(REGISTROS => \@miniaturas);


¿Cómo podría resolver esto? Si hay otra idea mejor...

Bueno, ...

En IBM developerWorks aparece un artículo para aprender las bases del sistema S3 de Amazon y los servicios SimpleDB construyendo un sitio de intercambio de fotos, hecho en Perl.

Artículo original de la primera parte (en inglés)

Hola amigos del foro. Les cuento mi situación: tengo 3 archivos separados para el mismo día, donde cada uno tiene distintas dimensiones; entonces lo que yo quiero hacer es que de esos tres archivos se elijan los que coinciden en la primera columna y los guarde en un cuarto archivo.

#!/usr/bin/perl

while($one=<*_ecmwf_cmoreno>) {
$fecha=substr($one,0, 8 );
open(UNO, "<$one");
open(DOS, "<*_fh_cmoreno");
open(TRES, "<*_sonda_cmoreno");
$day="$fecha"."_tmp_cmoreno";
open(CUATRO, ">$day"); #cuarto archivo.

while( $uno = <UNO> ) {
$dos = ...

Hola a todos soy nuevo en Perl y me parece muy interesante, mi problema es que tengo una web que está en PHP con el cual consumo datos de un webservice pero la lectura de los datos es muy lenta y he leído que con Perl es más rápido leer del webservice. ¿Alguien me podría ayudar a hacer un programa en Perl que lea el webservice y los datos mostrarlos en PHP o guardarlos en ...

Hola, bueno... a la hora de querer hace referencia a todos los números en una expresión regular de substitución no lo consigo.

$out = $1;
$out =~ s/"//g;

En ese caso inicialmente tengo puesto que me sustituya el caracter " (doble comilla) por 'NADA' (un vacío). Pero lo que necesito es que substituya todos los números del 0 a 90000, por ejemplo, más las dobles comillas, por un vacío, es decir, por nada (como en ...

Hola a todos.

Soy nuevo en el foro. He caído aquí por casualidad pero es lo que más me está ayudando porque de Perl ni idea... y de inglés tampoco :)

A ver si alguien me puede ayudar: tengo un formulario que pide varios campos que los envío al servidor. En el servidor ejecuto un cgi que con los datos recibidos genera un fichero.

No sé cómo ...

¡Hola! Soy nuevo en el foro y también en Perl. Mucho agradeceré si alguien me ayuda a escribir un script que lea un archivo con la siguiente estructura:

Code: Seleccionar todo

>texto
letras1
letras2
letras3
*
>texto
letras4
letras5
letras6
*
>texto
.
.


Deseo extraer sólo las líneas que contienen "letrasx" de cada uno de los bloques >texto, concatenar las que pertenecen al mismo bloque y guardarlas en un arreglo que contenga algo así como:
@array (letras1letras2letras3, ...

Hola, estoy trabajando con un proceso que no se quiere parar, debe estar siempre funcionando y por lo tanto el fichero log puede crecer indefinidamente.

Me han hablado del log4j de Java, de la funcionalidad de rollingfileappender que por lo visto cuando el fichero llega a un tamaño X, cambia de fichero log, lo cual, parece acercarse a una solución para mi.

He estado leyendo las páginas de Log::Log4perl, en concreto la funcionalidad de Log::Log4perl::Appender::File, ...

Hola a todos.

Tengo un script Perl en un Solaris, el cual hace algunas consultas -5- a Mysql; el script ejecutándolo desde consola funciona perfecto (bash-3.1$ perl mi_script.pl).
Pero al agregarlo a un cron de usuario (0 * * * * perl /ruta/mi_script.pl) me tira este error:

install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi ...

Bueno espero que pueda llegarse a entender bien lo que quiero hacer y la verdad que estuve dando vuelta y se me complicó mucho hacerlo y no sé cómo...

Lo que quiero hacer es lo siguiente...

Tengo una tabla con N elementos, la cual tiene un ID fijo ya (que no tiene un orden especifico sino un valor que tengo que tener sí o sí) en la tabla necesito un checkbox, la cual tiene uno ...