Affichage d'une page web en perl
Bonjour,
J'ai un problème d'affichage d'une page web en perl.
Sachant que j'ai le lien de la page web, alors j'ai pu afficher le code html de cette page mais pour des fins utiles le code html n'est pas suffisant alors je voulais afficher la page web dans un browser ou dans un widget.
Es ce qu'il y a quelqu'un qui peut m'aider.
Voila le code que j'avais essayé:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| #!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
# ouvre une connexion sur le serveur
my $sock = IO::Socket::INET->new(
PeerAddr => 'paris.mongueurs.net',
PeerPort => 'http(80)',
Proto => 'tcp'
) or die "Impossible de se connecter";
open SOCK, ">$sock";
# envoie la requête
print $sock "GET / HTTP/1.0\015\012Host: paris.mongueurs.net\015\012\015\012";
# récupère la réponse
my $page = do { local $/; <SOCK> };
# ferme la connexion
close $sock or die "close: $!"; |
Cordialement.
Achir.
