Foro - Perl en Español

Buenas, estoy haciendo una aplicación web con Catalyst y necesito recepcionar los datos de un checkbox, donde puedo seleccionar varios datos que posteriormente debo insertar en una BD de MySQL. Para esto uso:

@libros = $c->request->param( 'libros' );

El problema que tengo es a la hora de introducir los datos en MySQL. Para esto recorro el array de la siguiente manera:

foreach $libro (@libros){
sentencia MySQL con $libro
}

Y viendo la traza de DBIC ...

¡Hola, amigos perleros!

Tengo el siguiente problema.

Quiero agregar una línea al final de un archivo y lo hago mediante system(), de la forma:

system "echo q=(\"variation scale\") >> Salida.txt";

Yo necesito que en el archivo salida.txt quede la línea como

q=("variation scale") , con las comillas dobles, pero en realidad me queda

q=(variation scale) . Probé también poner

system "echo q=(""variation scale"") >> Salida.txt";

pero me tira un error.

¿Cómo tengo que hacer para ...

-----------------------------------------------
CODIGO HTML BASURA
<!-- cuerpo -->
<div id="sms">
<a id="centro"></a>
<div id="tema" style="url"></div>
....Mas codigo html
</div>
<!-- /cuerpo -->
CODIGO HTML BASURA
-----------------------------------------------
Gracias desde ya.
Quisiera capturar código HTML, pero solo lo que está entre "<!-- cuerpo -->" y "<!-- /cuerpo -->".
o también entre '<div id="sms">' y '</div>'.
Saludos.

Buenas, paso a contaros una variante que voy haciendo mientras voy aprendiendo de qué van los servicios REST. Estoy tratando de adaptar un cliente Perl/JSON para consumir un servicio REST/PHP/JSON. El mismo con un cliente en PHP funciona bien pero al querer conectarme con el ejemplo de use JSON::RPC::Client; da el siguiente error.

Como siempre la idea es comparar códigos y tomar un punto de partida en base a los ejemplos que voy encontrando…


Error ...

Tengo el siguiente script.

#!/usr/bin/perl
$dir = "/home/manuel/";
opendir(DIR, "$dir");
@FILES = readdir(DIR);
foreach $file (@FILES) {
print $file, " ";
}
closedir(DIR);

Lo que quiero hacer es que en vez de salir el resultado en la consola, quiero que salga en el Nautilus, con sus iconos y demás.


¿Cómo podría realizar eso?

¿Existe alguna forma de redireccionar el resultado hacia el Nautilus?

Eso mismo quiero lograr también cuando esté en Windows con Active Perl ...

Hola, tengo Ubuntu 10.10 y la versión de Perl que trae instalada es la v5.10.1.

Mi pregunta es: ya que voy a empezar con Perl, qué versión me recomendáis instalar. Veo por ahí que está la v5.14, y de camino, a ver si podéis decirme cómo se actualiza de la v5.10 a la que vosotros me recomendéis.

Gracias.

Gabor Szabo nos muestra en este vídeo, como se hace una aplicación web sencilla, en Dancer. En este caso, un esquema de lo que pueden ser la gestión de los comentarios de los usuarios, a una cierta noticia (lo que hoy conocemos como blog).

¿Qué tal, gente? Les hago una consulta.

Tengo un script en Perl que atiende consultas de usuarios devolviéndoles las correspondientes respuestas.

Ahora bien, necesito guardar en una base de datos dichas consultas con las respectivas respuestas para ser analizadas luego (como auditoría).

Lo que me interesaría saber es cómo realizar el logging en la base de datos SIN demorar la respuesta. Es decir, escribir en una base de datos tiene una demora que puede ser ...

Buenas,

No sé si este post encaja dentro de este apartado.

Me gustaría saber si alguien ha realizado una indexación de documentos XML para posteriormente realizar búsquedas sobre el índice y los documentos empleando Perl.

He estado mirando varios motores de indexación y búsqueda (Apache Lucene, Apache Lucy, etc) y me gustaría saber cuál es más fácil de emplear con Perl, enlaces a webs con tutoriales, libros, etc.

Muchas gracias.

Saludos.

Hola buenas. Ya teniendo el servicio web creado con Dancer me dispongo a crear un cliente que pueda consumir dicho servicio y mostrar la misma información que se muestra poniendo la URL pero en la aplicación… para ello adapte el código que encontré en CPAN en el módulo JSON::RPC::Client;
El cliente lo apunto a la dirección del servicio que en teoría funciona… pero me aparece el siguiente error… ahora bien, no sé si el error ...