Foro - Perl en Español

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

for (my $i = 0; $i < @urls; $i++) {

print $urls,"::::"," PROXY: ",$proxy,"\n";

my $ua = LWP::UserAgent->new;

$ua->proxy(, "http://$proxy");
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);


my $req = HTTP::Request->new(GET => $urls);
$req->content_type('application/x-www-form-urlencoded');
my $response = $ua->request($req);


$result = $response->code();


open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $result," ",$response->message( ...

Hola, probando un script (tarda bastante en ejecutarse, unos 10-20 segundos) veo que de una deja de funcionar si cambio una serie de parámetros (trabajando con librería GD, al trabajar con una imagen cada vez mayor).

¿Sabéis si por norma general un hosting (en mi caso 100WebSpace) tiene un parámetro como el maximun_execution_time de php.ini donde si estás más de 10 segundos, te tire?

¿Alguna opción para cambiar este parámetro?

Un saludo.

«Con sus 23 años, Perl es claramente uno de los lenguajes de programación más antiguos. Algunos incluso lo llaman un dinosaurio y que está muerto. Pero en el mundo de la programación no existe la muerte como tal, y la comunidad Perl es, actualmente, más fuerte que nunca.

Bueno. Asumamos que Perl era un dinosaurio que sobrevivió para dominar la cadena alimenticia. Seguramente sería un carnívoro devorando nítidas expresiones regulares, y las 20.000 distribuciones en ...

«Aprovechando uno de los días sin IVA de Mediamarkt, y teniendo en mente un cambio de TV (la anterior no tenía ni TDT integrada), volvimos a casa con una LG más moderna. Ya puestos, esta es algo más grande que la anterior, y como le confesé a Chema Alonso en la entrevista que me hizo, este año estará genial seguir la temporada de Fórmula 1 en el salón!

Según miraba la TV en Mediamarkt, me ...

Hola, un saludo. Estoy armando un código en el cual quiero ver la fecha desde una web. El código en HTML es el siguiente:

<tr bgcolor="#FFFFFF">
<td align="right">Estado:</td>
<td class="emphasis">Activo</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">Fecha de Registro:</td>
<td class="emphasis">26 Mayo 2009</td>
</tr>
El "Estado" Lo leo correctamente con:

my $internal=$mech->content;
if ($internal =~/<td class=\"emphasis\">(.*?)<\/td>/){
print "Estado: $1 \n";
}
Pero la "Fecha de Registro:" la intento leer con:

my $internal=$mech->content;
if ...

En todos los script que desarrollo utilizo el módulo CGI.

Mi pregunta es: si reemplazo la línea:

use CGI

por

use CGI::Fast

¿lograré una mayor performance y velocidad?

¿Qué ventajas me ofrece usarlo?

¿Tengo que realizar cambios en mi sintaxis al reemplazar CGI por CGI::Fast?

¡¡¡¡¡Muchas gracias!!!!!

Buenos días,

Escribo por primera vez en este foro para plantear mis dudas sobre un lenguaje de programación que me llamó mucha la atención y por todo el abanico de posibilidades que tiene, evidentemente estoy hablando de Perl.

Soy estudiante de Informática y haré el proyecto final de carrera con este lenguaje de programación.

El hecho es que quiero enviar un paquete TCP con el flag SYN activado, y al recibir el paquete de respuesta, ...

Hola.

Ando teniendo una duda con el uso de la función
put() en el módulo Net::FTP. El problema está en que
yo quiero subir una imagen pero cuando subo la imagen
en el servidor FTP, la imagen se sube mal, porque cuando
quiero descargarla para poder verla ésta se ve borrosa.

El código es el siguiente

use Net::FTP

$ftp = Net::FTP->new("localhost");
$ftp->login("test","test");
$ftp->put("test.jpg","subi.jpg");

¿ Alguien me puede explicar cómo arreglo esto ?

Hola a todos.

Estoy intentado obtener unos datos de plantas solares de una página web y me he atascado. La verdad que comienzo con esto del Perl y me está costando mucho.

He conseguido obtener todos los enlaces de las plantas pero ahora es cuando no sé cómo continuar. Tengo que obtener de cada planta el nombre, la localidad y la potencia.

El código que tengo es

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics; ...

Hola, qué tal,

Pues paso a presentarme. Mi nombre es Alejandro y soy algo nuevo en Perl. He trabajado en C++, VisualBasic, y hace poco que he estado intentando saber un poco de PHP, pero en general se me da bien el entender cualquier lenguaje de programación.

Me compre una consola Wii y me dio por enlazar el Wiimote con la PC, por lo que instalé varias cosas; primero en Windows pero no logré hacerlo ...