FAQ PerlConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl 
use warnings; 
use strict; 
use Getopt::Long; 
use LWP::Simple; 
use LWP::UserAgent; 
use MIME::Base64; 
  
=for COMM 
  
Script permettant de recuperer le contenu du page web en HTTP  
avec utilisation d'un proxy et d'un login si besoin. 
  
Arguments obligatoires : 
  --url=URL 
    Precise la page a recuperer 
  
Arguments Optionnels :    
  --login=USER:PASSWD 
    Specifie le login a utiliser 
  --proxy=PROXY 
    Indiquer un proxy HTTP 
  
=cut 
  
my ( $url, $login, $proxy ); 
  
# Recuperation et stockage des options dans leurs variables respectives 
GetOptions( 
  'url=s'   => \$url, 
  'login=s' => \$login, 
  'proxy=s' => \$proxy, 
); 
  
# Le script a besoin d'au moins une URL pour fonctionner 
if ( !defined $url ) { die( 'Usage : ' . $0 . " --url=URL\n" ); } 
  
# Le login doit etre forme du nom et du mot de passe separes par deux points 
if ( ( defined $login ) and ( $login !~ /.+:.+/ ) ) { 
  die( 'Usage : ' . $0 . " --url=URL --login=USER:PASSWD\n" ); 
} 
  
# Creation du User Agent. Il se charge de traiter la requete HTTP, comme un navigateur le ferait. 
my $ua = LWP::UserAgent->new; 
  
# Le timeout permet de savoir a partir de quand on considere qu'un requete n'aboutira pas 
$ua->timeout(20); 
  
# On crée la requete HTTP correspondant a l'url 
my $req = HTTP::Request->new( GET => $url ); 
  
if ( defined $proxy ) { 
  
  # Indique a l'user agent qu'il va devoir utiliser un proxy 
  $ua->env_proxy; 
  
  # Indique a l'user agent quel proxy utiliser 
  $ua->proxy( ['http'], $proxy ); 
} 
  
if ( defined $login ) { 
  
  # Encodage en base 64 comme le demande HTTP 
  my $token = encode_base64($login); 
  
  # Ajout de l'option 'Authorization Basic' et du login dans la requete. (cf RFC de HTTP) 
  $req->header( Authorization => 'Basic ' . $token ); 
} 
  
# Envoi de la requete et reception de la reponse dans $content 
my $content = $ua->request($req); 
  
# Si la requete a abouti, afficher le contenu de la page web 
if ( $content->is_success ) { 
  print $content->decoded_content; 
} 
else { 
  die $content->status_line;    # Afficher la raison de l'erreur 
}