je suis totalement ignare pour tout ce qui est processus réseau, et j'ai
beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une
page web et de me renvoyer son code HTML.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Texier
Le Sun, 03 Jul 2005 07:30:14 +0200, Antoun a écrit :
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Regardez le module LWP
Le Sun, 03 Jul 2005 07:30:14 +0200, Antoun <antoun@free.fr> a écrit :
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai
beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une
page web et de me renvoyer son code HTML.
Le Sun, 03 Jul 2005 07:30:14 +0200, Antoun a écrit :
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Regardez le module LWP
Jérémy JUST
On Sun, 03 Jul 2005 08:45:42 +0200 Patrick Texier wrote:
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Regardez le module LWP
Plus précisément, la perldoc « lwpcook » (le cookbook de LWP) donne un exemple de code complet et directement utilisable.
$ perldoc lwpcook $ perldoc LWP::UserAgent
-- Jérémy JUST
On Sun, 03 Jul 2005 08:45:42 +0200
Patrick Texier <p.texier@alussinan.org> wrote:
je suis totalement ignare pour tout ce qui est processus réseau, et
j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl
d'ouvrir une page web et de me renvoyer son code HTML.
Regardez le module LWP
Plus précisément, la perldoc « lwpcook » (le cookbook de LWP) donne un
exemple de code complet et directement utilisable.
On Sun, 03 Jul 2005 08:45:42 +0200 Patrick Texier wrote:
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Regardez le module LWP
Plus précisément, la perldoc « lwpcook » (le cookbook de LWP) donne un exemple de code complet et directement utilisable.
$ perldoc lwpcook $ perldoc LWP::UserAgent
-- Jérémy JUST
Jacques Caron
Salut,
On Sun, 03 Jul 2005 07:30:14 +0200, Antoun wrote:
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Voir le module WWW::Curl::Easy.
Jacques.
Salut,
On Sun, 03 Jul 2005 07:30:14 +0200, Antoun <antoun@free.fr> wrote:
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai
beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une
page web et de me renvoyer son code HTML.
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Voir le module WWW::Curl::Easy.
Jacques.
Alexandre Jaquet
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai
beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une
page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page
HTTP/1.0nn:
#!/usr/bin/perl -w
# appel : navig.pl adresse-ip
#############################
use IO::Socket;
print "nom ou adresse IP du serveur WEB (par défaut créteil) : ";
$web = <>; chomp($web);
$web= "www.ac-creteil.fr" if $web eq "";
print "Document (par défaut ..) : ";
$doc = <>; chomp($doc);
$doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new(
...........
..........,
...........
)
or die "connexion impossible au port 80 sur $web";
$sock -> autoflush(1);
# envoi, par socket, de la requete HTTP habituellement envoyée par le
navigateur
print $sock "GET $doc HTTP/1.0nn";
print "Voici le document $doc sur $webn";
while ( <$socket> ) {
print;
}
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
Michel Rodriguez
Alexandre Jaquet > wrote:
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
Euh... il y a peut etre plus simple:
use LWP::Simple; $content = get("http://www.sn.no/"); die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages, WWW::Mechanize est vraiment pratique.
-- mirod
Alexandre Jaquet > wrote:
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et
j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl
d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page
HTTP/1.0nn:
#!/usr/bin/perl -w
# appel : navig.pl adresse-ip
#############################
use IO::Socket;
print "nom ou adresse IP du serveur WEB (par défaut créteil) : ";
$web = <>; chomp($web);
$web= "www.ac-creteil.fr" if $web eq "";
print "Document (par défaut ..) : ";
$doc = <>; chomp($doc);
$doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new(
...........
..........,
...........
)
or die "connexion impossible au port 80 sur $web";
$sock -> autoflush(1);
# envoi, par socket, de la requete HTTP habituellement envoyée par le
navigateur
print $sock "GET $doc HTTP/1.0nn";
print "Voici le document $doc sur $webn";
while ( <$socket> ) {
print;
}
Euh... il y a peut etre plus simple:
use LWP::Simple;
$content = get("http://www.sn.no/");
die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres
modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages,
WWW::Mechanize est vraiment pratique.
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
Euh... il y a peut etre plus simple:
use LWP::Simple; $content = get("http://www.sn.no/"); die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages, WWW::Mechanize est vraiment pratique.
-- mirod
Alexandre Jaquet
Alexandre Jaquet > wrote:
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
Euh... il y a peut etre plus simple:
use LWP::Simple; $content = get("http://www.sn.no/"); die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages, WWW::Mechanize est vraiment pratique.
il précise "ignare pour tout ce qui est processus réseau" ca fait pas de mal de regardé comment ca fonctionne
Alexandre Jaquet > wrote:
bonjour,
je suis totalement ignare pour tout ce qui est processus réseau, et
j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl
d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page
HTTP/1.0nn:
#!/usr/bin/perl -w
# appel : navig.pl adresse-ip
#############################
use IO::Socket;
print "nom ou adresse IP du serveur WEB (par défaut créteil) : ";
$web = <>; chomp($web);
$web= "www.ac-creteil.fr" if $web eq "";
print "Document (par défaut ..) : ";
$doc = <>; chomp($doc);
$doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq
"";
$sock = IO::Socket::INET->new(
...........
..........,
...........
)
or die "connexion impossible au port 80 sur $web";
$sock -> autoflush(1);
# envoi, par socket, de la requete HTTP habituellement envoyée par le
navigateur
print $sock "GET $doc HTTP/1.0nn";
print "Voici le document $doc sur $webn";
while ( <$socket> ) {
print;
}
Euh... il y a peut etre plus simple:
use LWP::Simple;
$content = get("http://www.sn.no/");
die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres
modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages,
WWW::Mechanize est vraiment pratique.
il précise "ignare pour tout ce qui est processus réseau" ca fait pas de
mal de regardé comment ca fonctionne
je suis totalement ignare pour tout ce qui est processus réseau, et j'ai beau RTFM, je ne trouve pas du tout comment demander à Perl d'ouvrir une page web et de me renvoyer son code HTML.
Je précise que je suis sous Windows.
Merci d'avance à toutes les bonnes volontés !
Antoun
Créer une socket sur le port 80 et envoye une requete GET $page HTTP/1.0nn:
#!/usr/bin/perl -w # appel : navig.pl adresse-ip ############################# use IO::Socket; print "nom ou adresse IP du serveur WEB (par défaut créteil) : "; $web = <>; chomp($web); $web= "www.ac-creteil.fr" if $web eq ""; print "Document (par défaut ..) : "; $doc = <>; chomp($doc); $doc= "/util/programmation/perl/cours/tp-introduction.html" if $doc eq "";
$sock = IO::Socket::INET->new( ........... .........., ........... ) or die "connexion impossible au port 80 sur $web"; $sock -> autoflush(1); # envoi, par socket, de la requete HTTP habituellement envoyée par le navigateur print $sock "GET $doc HTTP/1.0nn"; print "Voici le document $doc sur $webn"; while ( <$socket> ) { print; }
Euh... il y a peut etre plus simple:
use LWP::Simple; $content = get("http://www.sn.no/"); die "Couldn't get it!" unless defined $content;
LWP devrait faire l'affaire, que ce soit LWP::Simple ou un des autres modules qui va avec.
Si c'est pour faire du "screen-scraping" ou pour tester tes pages, WWW::Mechanize est vraiment pratique.
il précise "ignare pour tout ce qui est processus réseau" ca fait pas de mal de regardé comment ca fonctionne
Antoun
Bon, manifestement, "there's more than one way to do it" !
Merci à tous pour vos solutions, je sens que je vais non seulement pouvoir faire ce que je peux mais en plus devenir un peu moins ignare en réseaux !
Btw, qu'est-ce que le "screen-scraping" ?
Bon, manifestement, "there's more than one way to do it" !
Merci à tous pour vos solutions, je sens que je vais non seulement
pouvoir faire ce que je peux mais en plus devenir un peu moins ignare en
réseaux !
