[debutant] requette html et cookie
Bonjour,
j'utilise perl pour faire des requêtes html. mon probléme est que je dois récupérer les informations d'un cookie est les envoyer dans la requette suivante et la je ne sais pas du tout faire!
donc si quelqu'un peut m'aider?!
Merci d'avance.
mon code actuel est le suivant :
Code:
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
|
# 21/06/06 essai
print "
****************************************************
* *
* script de consultation LogIntern via http *
* *
****************************************************
";
print "\nLOGIN : ";
chomp($login=<>);
print "\nMot de passe : ";
chomp($motp=<>);
#-------Connexion (login) au serveur ------#
require HTTP::Request;
use LWP::UserAgent;
use HTTP::Request::Common;
$ua = LWP::UserAgent->new;
#name="formident" method="POST" >
#name="provenance" value="CTLIDT">
#name="environnement" value=expsv >
#name="codaplredirect" value= >
#name="paramredirect" value= >
#name="CODLOOK" value=0>
#name="CODLANG" value=0>
#name="nom"
#name="password"
$r=$ua->request(POST 'http://10.1.5.8/binaci/accint.dll',
[provenance => CTLIDT,environnement => expsv,CODLOOK => 0,CODLANG => 0,nom => $login,password => $motp,submit => formident]);
$resultat=$r->content;
open (FICOUT,'>c:/tmp/pg1.htm');
print FICOUT "\n$resultat";
#<a href="javascript:lancerApplication('http://10.17.7.10/bin/default.asp?tks=%48%35%33%38%73%76&CODLOOK=0','Log','menubar=0,resizable=1,scrollbars=1,toolbar=0,status=0')"> Log </a>
#---- Récupération de l'indentifiant de la connexion----#
@Log1=split('\n',$resultat);
foreach(@Log1){
if(/> Log </){
if(/(http.*CODLOOK=0)/){
print $1;
$httpLog=$1;
}
}
}
#---- Connexion à l'application Log -----#
$request = HTTP::Request->new(GET => "$httpLog");
$ua = LWP::UserAgent->new;
$r = $ua->request($request);
$resultat=$r->content;
open (FICOUT,'>c:/tmp/pg2.htm');
print FICOUT "\n$resultat";
#print "\n$resultat";
print "\nFIN SCRIPT voir fichiers c:/tmp/pg1 et 2 .htm";
<>; |
