Discussion :

[cryptorchild]

J'ai un tableau contenant une liste de sites , je veut préparé le HTTP::Request->new() sur tout les éléments en meme temps chose que j'ai réussie a fair mais lorque que je fait $t = $ua->request($web); ben il ce passe rien

voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use HTTP::Request;
use HTTP::Response;
use LWP::UserAgent;
 
my @site = ("http://www.free.fr", "http://www.aol.com");
 
my $ua = LWP::UserAgent->new;
   $ua->agent('Mozilla/5.0 (compatible)');
 
 
@site = map( { HTTP::Request->new('GET', $_) } @site);
 
 
foreach my $web (@site) {
$t = $ua->request($web);
if ($t->is_success )
{
  $m = $t->content;
  print $m;
 }
}

[vic]

Je crois que tu t'es trompé dans la syntaxe de map, les parenthèses sont en trop.

[cryptorchild]

Sa marche parfaitement j'avais fait une erreur de synthaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@site = map( { HTTP::Request->new('GET', $_) } @

site);

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@site = map( { HTTP::Request->new( $_) } @site);