Discussion :

[Achir]

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 :

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
#!/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.

[Philou67430]

Je ne l'ai jamais essayé, mais peut-être existe-t-il une solution élégante avec WWW::Mechanize::Firefox pour Firefox (un module Mozrepl doit être installé, voir la documentation du module perl).

[TheDrev]

enregistre ton code html dans un fichier .html et appel firefox en ligne de commande