use LWP::UserAgent;
use Data::Dumper;
my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request POST => 'http://example.com';
$req->content('port=8', 'target=64'); #problem
my $res = $ua->request($req);
print Dumper($res->content);
¿Cómo puedo enviar varias partes de contenido usando $ req-> content? ¿Qué tipo de datos espera $ req-> content?Cómo PUBLICAR contenido con una solicitud HTTP (Perl)
Sólo envía la última.
Editar:
Encontrado si i formatearlo como 'port = 8 & target = 64' funciona. ¿Hay una mejor manera?
A pesar del código en la pregunta que me gustaría ir con un enfoque de programación orientada a objetos completo: 'mi $ ua = LWP :: UserAgent-> new(); my $ response = $ ua-> post ($ url, $ parámetro); mi $ contenido = $ respuesta-> as_string(); ' – dennis