erreur incroyable en perl

Question

i écrire ce code perl:

use HTTP::Request::Common qw(POST); 
use LWP::UserAgent; 
my $ua = LWP::UserAgent->new(); 
my $req = POST 'http://example.com', 
[ hfc /[pos]/ => 'yayaya' ]; 
$content = $ua->request($req)->as_string; 

mais quand je le compiler je reçois cette erreur:

syntax error at C:\Documents and Settings\ysys\ya.pl line 5, near "/ =>" 

que vais-je faire? Merci d'avance.

Answer 1

Je pense que c'est ce qu'elle veut:

use LWP::UserAgent; 
my $ua = new LWP::UserAgent; 

#this should work 
my $response = $ua->post('http://www.example.com', ["hfc[pos]" => 'yayaya']);  
my $content = $response->content; 

Voici comment vous utilisez post(): $ua->post($url, $field_name => $value,...)

D'ailleurs quand vous lisez la documentation et il dit quelque chose comme:

$ua->request($request, $arg [, $size]) 

cela signifie simplement que l'argument $size est facultatif. Vous ne devez PAS inclure les crochets [ ] dans votre code.