Foro - Perl en Español

Ando queriendo saber si el módulo HTTP::Proxy me podría dar la posibilidad
de capturar el contenido de la web cargada para poder realizar una modificación para
posteriormente devolver ese resultado a la página. Sería como el funcionamiento del famoso
programa achilles.

El código que tengo es este:


use HTTP::Proxy;

my $test = HTTP::Proxy->new(port=>8080);
$test->host();
$test->start();

En la documentación no he encontrado lo que quería o, más bien, mi inglés no es muy bueno... ...

Hola, ando teniendo una duda con el uso de la función selectall_arrayref(). El problema es
que me gustaría abrir el valor $emp sin saber la columna. Intenté con o cosas así, pero
no entiendo si será posible hacerlo.

El código es el siguiente:

use DBI;

my $n = DBI->connect("dbi:mysql:test:localhost:3306","root","123");

my $rs = $n->selectall_arrayref("select * from temas",{Slice => {}});

foreach my $emp(@$rs) {
print $emp->{id};#¿?
}

¿ Alguien me podría ayudar ?

Hola, quería preguntar si había alguna posibilidad en Perl de poder
crear un array con nombre generado automáticamente.

Por ejemplo, tengo este código

for my $n (1..3) {
# ???
}

Me gustaría poder crear varios arrays con el nombre de un número. Es
solo un ejemplo, si es posible, me gustaría poder usar push() para agregar valores.

¿ Es posible hacer esto ?

Hola, muy buenos días.

Estoy desarrollando un pequeño sistema que va a requerir una interfaz web bastante sencilla. En este caso estoy manipulando mis datos con MySQL, y precisamente para la interfaz me ha surgido la necesidad de crear un menú desplegable (drop box) que muestre información directa de la base de datos. ¿Cuál es el método más efectivo para lograrlo o con qué herramientas cuento? ¿Lo hago con código Perl o es solo HTML? ...

Hola, estuve mirando el código de redirección para los avisos en el Squid.

La idea es implementar algo parecido pero sin tiempo_de_aviso, es decir, que cada petición que el usuario hace, mostrarle la página que solicito más el aviso. No sé si me explico. Obviamente sería dentro de un frame y demás. No sé si se podrá hacer...

Gracias.

Hola, tengo un script y lo que quisiera hacer es guardar en una variable el número de parámetros que contiene el script, y también quisiera hacer, que me mostrara por pantalla el primer y último parámetro del script.


Saludos, Zyonx

Hola, ando algo confundido, ando queriendo ejecutar una sentencia para después leer todos los registros con el nombre de la columna, un ejemplo sería:

id nombre #columnas
1 jose
2 test

El código que tengo es este

use DBI;
my $n = DBI->connect("dbi:mysql:noticias:localhost:3306","root","123");

$sth = $n->prepare("select * from articulos");
$sth->execute();

while (@a = $sth->fetchrow_array()) {
print @a;
}


¿ Alguien me podría ayudar ?

Hola, quiero instalar el módulo Gtk2::WebKit en Ubuntu 10.04, no tengo experiencia instalando módulos bajo Linux, intenté descargarlo con el gestor de paquetes Sinaptic pero no lo encontré, pensé en instalarlo bajándolo de CPAN, pero no conozco bien los pasos.

¿ Alguien me podría ayudar ?

Llevo intentándolo bastante tiempo y me es imposible descargar una página HTTPS.

Esta es una de las últimas formas que he intentado, con un socket proxy:

http://search.cpan.org/~scr/LWP-Protoco ... l/socks.pm

#!/usr/local/bin/perl
use strict;
use LWP::UserAgent;

my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
$ua->proxy( => 'socks://socks.yahoo.com:1080');
my $response = $ua->get("http://www.freebsd.org");
print $response->code,' ', $response->message,"\n";
my $response = $ua->get("https://www.microsoft.com");
print $response->code,' ...

Estimados,
Los molesto para consultarles si conocen algún módulo que me permita generar una imagen de una URL. El típico "alt + impPt"

Algo como esto: http://www.url2jpg.co.uk/ pero mediante consola, donde yo pueda ingresar qué URL quiero que me capture.

Saludos.