Utilizar diferentes proxies o IP
Publicado: 2014-09-22 14:46 @657
Saludos, estimados.
Tengo una duda o consulta. El siguiente escenario,
tengo un script en localhost de prueba,
el cual permite mostrar un mensaje al presionar un botón.
Limitaciones: cuando es presionado el botón YA NO PERMITE volver a mostrar ningún mensaje,
salvo que la petición se genere desde otra IP.
¿Cómo podría hacer para utilizar varias IP o un proxy anónimo que me dé diferentes IP en cada GET?
Alguna idea o sugerencia, al respecto.
#! /usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my $ua = LWP::UserAgent->new;
my $sta = HTTP::Response->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $url = "http://localhost/Prueba.php?boton=mensaje";
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
print $response->code();
El limitante se encuentra en mi script en PHP pero si pudiera generar peticiones con diferentes IP desde Perl.
Algo así:
my $ua = LWP::UserAgent->new;
$ua->proxy('http','http://usuario:contraseña@proxyramdomico:8080');
o no sé, alguna sugerencia.
Tengo una duda o consulta. El siguiente escenario,
tengo un script en localhost de prueba,
el cual permite mostrar un mensaje al presionar un botón.
Limitaciones: cuando es presionado el botón YA NO PERMITE volver a mostrar ningún mensaje,
salvo que la petición se genere desde otra IP.
¿Cómo podría hacer para utilizar varias IP o un proxy anónimo que me dé diferentes IP en cada GET?
Alguna idea o sugerencia, al respecto.
#! /usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my $ua = LWP::UserAgent->new;
my $sta = HTTP::Response->new();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $url = "http://localhost/Prueba.php?boton=mensaje";
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
print $response->code();
El limitante se encuentra en mi script en PHP pero si pudiera generar peticiones con diferentes IP desde Perl.
Algo así:
my $ua = LWP::UserAgent->new;
$ua->proxy('http','http://usuario:contraseña@proxyramdomico:8080');
o no sé, alguna sugerencia.