Foro - Perl en Español

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

«No es que sean un nuevo tipo de datos. En realidad las comillas invertidas ` hacen una llamada al sistema. Lo que aparezca dentro de ellas es ejecutado por el sistema, así que debemos usar órdenes que sean reconocibles por la shell. Por ejemplo, bien podríamos listar el contenido de un directorio con el comando dir. Podríamos, incluso crear un pequeño script que apague nuestra computadora:»

Artículo

«El pasado 4 de junio tuve la oportunidad de compartir con la gente de Iguana Valley una presentación nivel 100 sobre balanceo de carga y alta disponibilidad en aplicaciones Web, con motivo del último RefreshUIO, un evento mensual de emprendimientos y tecnologías Web que se hace en la ciudad de Quito.

Además de presentar algunos escenarios de clusterización para balanceo de carga y/o alta disponibilidad, que ya he expuesto y documentado en el blog y ...