Foro - Perl en Español

Hola, estoy desarrollando en Perl una aplicación y estoy reutilizando código. Necesito recorrer un hash que está guardado en otro y el código es el siguiente:

while ($infopd = $dbpd->fetchrow_hashref()) {
$limite = $infoo->{limitc} if ( ! ( $infoo->{limited} ) ); $sumamaterial.=" <br>$materials{$infopd->{material}}&nbsp;&nbsp;&nbsp;$infopd->{quantity}";
$destajo+= $infopd->{salary};
$resumenmaterial{$infopd->{material}}+= $infopd->{quantity};
}

El hash que necesito recorrer es $resumenmaterial.

Por su atención: GRACIAS y un caluroso saludo. :D

Lo que pasa es que tengo secciones de hasta el nivel 3. Cada sección puede tener carpetas dentro. Ejemplo sería

Frutas
--------mango
--------pera
--------Citricos
------------->Naranja
------------->Limon
----------------->Limon verde
----------------->Limon rojo
Animales
---------perro
---------gatos
---------domesticos
Casa
---------Muebles
---------baño
-------------->Romano

¿Cómo puedo representar alguna jerarquía así en Perl? Bueno, la idea no es cómo representarla si no cómo puedo aplicar una función si yo quiero por lo menos mover baños dentro de citricos.

1. Mover todas las ...

Hola a todos...

Necesito saber si desde un script de perl se pueden abrir simultáneamente dos sesiones ftp a dos servidores FTP distintos...

Gracias por adelantado.

saludos...

¡Hola!
Tengo un problemilla en la validación de un formulario html y no sé cómo solucionarlo. Normalmente las validaciones se realizan con JavaScript en el cliente, pero yo necesito verificar que un campo del formulario no esté en mi base de datos, por lo que tengo que usar CGI. Buscando información, he visto que CGI::Ajax me puede ayudar, pero me he quedado en un punto que no sé cómo seguir.

El problema está en que ...

Hola,

Tengo un problema al leer acentos de un archivo con Perl. Abro el archivo leo cada línea y separo las palabras por espacios, pero los acentos aparecen como espacios en blanco y televisión se convierte en "televi" y "n". ¿que debo tocar para que lea los acentos bien?

open(FPIN, "<$mystoplist");

while (<FPIN>) {

@tokens = split(/\s+/, $_);

}

Hola a todos, primero de todo felicitaros por la gran tarea que lleváis a cabo... Creo que sois una gran herramienta para todos los que, como yo, nos iniciamos en el mundo de la programacion en Perl.

Creo que mi duda será fácil de contestar... la cuestión es que tengo que crear un hash el cual he creado de la siguiente manera:

%hash = (
"diez",10,
"cien",100,
"mil",1000,
);

Representa que diez, cien y mil ...

Hola a todos

Tengo el siguiente código
use Net::FTP;
$ftp=Net::FTP->new("192.168.0.102",timeout=>240) or newerr=1;
$ftp->login("usuario","password");
$ftp->pasv();
$ftp->put(archivo);
$ftp->quit;

El script no puede poner el archivo en el servidor. Lo he notado porque he puesto mensajes para ver el avance del programa; llega a la instrucción put y ahí se queda trabado, ya no avanza en la ejecución.

Si me pueden ayudar se lo agradecería mucho.

He instalado un servidor Apache recientemente. He realizado una página en HTML, pero al añadirle una llamada a un cgi en Perl me da error.

He creado un cgi sencillo "Hola mundo" para ver si hacía algo mal, pero me sigue dando el mismo error.

La salida es esta;
Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, [email protected] and inform ...

Hola a todos, soy nuevo en el foro. Me encargaron la conversión de un script escrito en Perl a PHP y, aunque alguna vez hice algo en Perl, estoy teniendo problemas para entender esta parte del código:

sub getCookie {
my %cookies = fetch CGI::Cookie;
my @arryCookies=(((exists $cookies{'test'}) && ($cookies{'test'}->value)) ? $cookies{'test'}->value : (''));
return $arryCookies;
}

my $cookie_id = &getCookie;
my ($val) = $cookie_id =~ /\d+\.\d+\.\d+\.\d+\.(.*)/;

Un ejemplo de valor de esa cookie es: ...

Hola,
necesito ayuda sobre cómo comparar 2 ficheros. Ambos ficheros tienen un campo clave en común y necesito crear un fichero de salida con la diferencias entre ambos solo si no coincide este campo clave.

Si alguien me puede marcar unas líneas muy generales creo que yo podré acabar solo el programa.

No sé si aquí, en Experto, es el lugar adecuado.

Creo que no me sirve:

use File::Compare; if (compare("file1","file2") == 0) ...

Muchas ...