Foro - Perl en Español

Bueno, estuve buscando y la verdad que no pude solucionar esto :(

Tengo:
<form method="post" action="" name="Form1">
<select size="10" name="afinidad" id="idafinidad" multiple >
print("<option value=" . $id . " >" . $a . "</option>")

El print() se repite varias veces con un if().

Al apretar un botón recarga la web y lo que me gustaría es que los ítem que están seleccionados continúen seleccionados, ¿cómo lo puedo ...

Las capas de los territorios

Pensamos en las ciudades y los territorios como una integración de paisaje y arquitectura. Pero existen otros elementos menos presentes en nuestra percepción del espacio en el que vivimos que juegan un papel esencial. Se trata de las capas de infraestructuras que se disponen sobre la superficie y penetran en el subsuelo y que son esenciales para mantener nuestros "flujos vitales", individuales y sobre todo colectivos, y por tanto configuran ...

Hola,

Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.

Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.

Por favor si alguien puede ayudarme, el script es el siguiente:
#!/usr/bin/perl

use Net::FTP; ...

No sé mucho de este tema con Perl, pero necesito crear una cola de mensajes pero cuando uso la función ftok() para generar la clave me da error, no sé si en Perl se hará de otra forma o si existe algún modulo para esto.
Cualquier sugerencia me vendría muy bien, gracias.

Saludos.

si pongo la salida en un archivo .txt ya respeta los acentos pero si uso el query para subirlo a una base de datos ya no funciona

use DBI;
use encoding "iso-8859-1";

$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);

$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);

Bueno les cuento lo que quiero hacer.

1. Lo primero que quiero es conectarme a mi router (con un equipo dentro de la LAN) ingresando los campos de USUARIO y PASSWORD. /* El router utiliza una interfaz WEB para administrarlo. */
   
   Esto lo logre usando SAMIE, pero me gustaría hacerlo con Mechanize para que no quede solo para ser usado con Internet Explorer.
   
2. Lo segundo, realizar un click sobre algún link que proporciona la ...

Hola,

Como verás estoy muy pez en esto de Perl.
Me gustaría usar el módulo PDF::Report pero me da error (Can't locate PDF/Report.pm in @INC). Lo he buscado pero no lo encuentro. Tampoco encuentro el programa ppm.exe ¿Cómo puedo instalarlo?

Muchas gracias.

Hola,
soy nueva en el foro. Fui una perl(a) hace muchos años y ahora vuelvo a las andadas.
Mi duda es la siguiente:
Tengo un perl que se conecta a dos bases de datos, una Oracle y otra Essbase.
Depende de lo que lea en Oracle ejecutará en Essbase una tarea u otra (pueden llegar a ser hasta 8 tareas).

Idealmente la mejor solución que se me ocurre es:
--abrir conexiones a ambas bases de ...

¿Cuáles serán las diez principales tendencias tecnológicas del 2009?

La virtualización, la "cloud computing" y la arquitectura orientada a la web son algunas de las tecnologías de la información y la comunicación que tendrán relevancia en el año próximo, de acuerdo a un informe de la consultora Gartner.

Los analistas de la consultora Gartner difundieron las diez principales tendencias tecnológicas que, a su juicio, serán de gran importancia estratégica para la empresas durante el 2009. ...

Hola. En una ocasión anterior me ayudaron a descargar archivos HTML y transformarlos a .txt, acá está el script:

#!/usr/bin/perl

use strict;
use LWP::Simple;
$|++;

my $URL = 'http://weather.uwyo.edu/cgi-bin/sounding?region=samer&TYPE=TEXT%3ALIST&YEAR=2005';
my $url = '&STNM=85442';

foreach my $mes ( "04" ) {
foreach my $dia ( "01" .. "09" ) {
foreach my $hora ( 12 ) {

my $fecha = "$dia-$mes-$hora";
my $fichero = "$fecha.dat";
my $pagina = get("$URL&MONTH=$mes&FROM=$dia$hora&TO=$dia$hora$url");

if (defined $pagina) {
if ((my $datos) ...