Comment publier du contenu avec une requête HTTP (Perl)

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);

Comment puis-je envoyer plusieurs pièces de contenu à l'aide de $req->contenu? Ce type de données n' $req->contenu de s'attendre?

Il envoie seulement le dernier.

Edit:

De découvrir si je le formater comme "port=8&cible=64' il fonctionne. Est-il un meilleur moyen?

source d'informationauteur Takkun

  1. 14
    my $ua      = LWP::UserAgent->new(); 
my $request = POST( $url, [ 'port' => 8, 'target' => 64 ] ); 
my $content = $ua->request($request)->as_string();
  2. 2

    La réponse donnée ne fonctionne pas pour moi. J'ai encore eu le même problème que OP.

    La documentation pour LWP::UserAgent veut une table de hachage ou d'un tableau de référence.

    Cela fonctionne:

    my $url = 'https://www.google.com/recaptcha/api/siteverify';
my $ua      = LWP::UserAgent->new(); 

my %form;
$form{'secret'}='xxxxxxxxxxxxxxxxxxxxxxx';
$form{'response'}=$captchaResponse;

my $response = $ua->post( $url, \%form ); 
my $content = $response->as_string();