Después de tanta lucha he escrito mi código en Perl, pero aun así no sabría decir si mi idea es bien objetiva.
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Request;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
for($id=3506;$id<=3506;$id++){
$host="http://www.sevillafc.es/noticias.php?id="."$id";
$req = HTTP::Request->new(GET => $host);
$response = $ua->request($req);
$contenido = $response->content();
print $contenido;
}
use LWP::UserAgent;
use HTTP::Request;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
for($id=3506;$id<=3506;$id++){
$host="http://www.sevillafc.es/noticias.php?id="."$id";
$req = HTTP::Request->new(GET => $host);
$response = $ua->request($req);
$contenido = $response->content();
print $contenido;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Mi idea es solamente adquirir los 100 títulos de las noticias (rango 3506-3606) de cada "Id" e imprimirlos usando la cabecera 'Content-Range' para que así solamente baje ese recurso especifico.
Ejemplo:
- Código: Seleccionar todo
-1. EL SEVILLA TRASPASA A BAPTISTA AL MADRID POR UN MONTANTE GLOBAL DE 24,5 MILLONES DE EUROS
-2. ENZO MARESCA: “VENGO PARA DARLE EQUILIBRIO AL EQUIPO”
-3. BAPTISTA SE DESPIDIÓ DE SUS COMPAÑEROS TRAS EL DESAYUNO ANTES DE VOLVER A ESPAÑA
.
.
.
-100....
Si podrían ayudarme, seré muy grato.
Gracias.
