Foro - Perl en Español

Pues resulta que me vengo leyendo algunos manuales y viendo códigos ya escritos pero en ningún lado doy con el siguiente tipo de instrucción:

$tipo{'cartera'}{'bolso'}="No";

No logro entender qué se está queriendo hacer... ¿Alguien sería tan amable de decirme cuál es la intención en este caso de usar esta variable? :?

¡Buenos días, perleros!

La pregunta es bien sencilla: ¿cómo puedo añadir un icono de mi programa hecho en Gtk2-Perl a la TaskBar de mi equipo? Es decir, poder minimizar mi programa en la barra sin que me moleste en la pantalla y pueda estar ejecutándose, hasta que decida clicar el icono de nuevo y que me vuelva a aparecer la ventana.

Muchas gracias.

RastaCat.

Tengo el siguiente código.

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

$code = toma("http://www.google.com.ar/search?q=test&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a");
while($code=~/<a href="(.*?)" class=l onmousedown/mig) {
print $1."\n";
}

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

El problema es que la expresión regular no funciona. El patrón es así:

<a href="http://www.psicoactiva.com/tests.htm" class=l onmousedown

¿ Alguien me podría ayudar ?

Buenas, los molesto por un problema que tengo al tratar de actualizar una base de datos desde distintos hilos generados.
La idea del script es dado una lista de procesos procesarlos en paralelo en una cantidad de hilos determinados (en este ejemplo 4). La idea es que cada hilo grabe en una base de datos su inicio y su fin usando una única conexión abierta en el cuerpo principal.

El error que me está dando ...

Hola, a partir de un fichero con el siguiente formato:
>supercont1.1 of E.coli M1.001
TTATACTTAACTTATTATTTAAATTAATATAGCTTATTATATAGTAACCTTATAGTTCTA
ATTATATTATAAATAATTTATTTATTATACTTATTTAGTAGTTATTAAATATCTTTATTT
>supercont1.2 of E.coli M1.001
ATATAATAAATAAGAAGTATATATAAAGTAATAATTTTTTATTTATTTATAAGAATTATT
AAAGTTAGTTAATTTATAGTTATTATAACTATTAAAGATTAAAAGTTAATAAGTACTTTT
(...)
Estoy intentando extraer, en otro fichero (out.txt), el primer supercont. Para ello, en teoría, (según lo que yo pretendía) bastaría con teclear 1.2 y dejar que ese valor se guardara en $a. Al hacer esto, en vez de obtener un fichero con sólo la primera secuencia, obtengo uno con todas las secuencias. ...

Hola, hacía tiempo que no me conectaba. Tengo un pequeño problema: tengo un cgi en Perl que pide datos al usuario, y me encantaría añadir que puedan subir una foto, pero no tengo ni idea de cómo hacerlo. ¿Alguien podría ayudarme? ¿Hay algo hecho por ahí que me pueda servir? Muchas gracias.

Más de 10 000 investigadores, unidos gracias a la tecnología TWiki, basada en Perl (en inglés).

Quiero recoger el identificador más grande que haya en una base de datos, y para ello tengo una función que hace lo siguiente:

$sth = $dbh->prepare("SELECT max(id_vector) FROM android.datamining");
my $rv = $sth->execute;
$result = $sth->fetchrow_hashref();
$VectorID = $result->{id_vector)};
$sth->finish;

Sé que no se hace así porque no lo recoge bien, pero si en la 4 línea pongo max(id_vector) en vez de solamente id_vector, el programa no funciona.

¡Gracias!

Bueno, no sé si sea un error, pero tengo dentro de mi clase CGI-App dos métodos uno para crear páginas y otro para editar.

Pero no logro mostrar el contenido de un directorio a la hora de crear un nuevo contenido, pero cuando lo voy a editar sí me lista el directorio...

Y los métodos son similares entre sí: uno es para crear un contenido, y otro para editar el contenido...


Este es el que ...

Saludos, Perl en Español.

Necesito ordenar el siguiente hash de horas->precio:

sin orden.png

(el ingreso es 1->precio, 2->precio, 3->precio y así sucesivamente pero al imprimir el hash sale en el orden mostrado.

Curioseando en el foro me fui hacia un articulo que Uds. recomendaron y escribí esto:

foreach my $hora( sort ordenar_por_valor keys %precio) {
my $valor = $precio{$hora};
print "$hora => $valor\n";
}

sub ordenar_por_valor {
return $precio{$a} <=> ...