[resolus]Intergair avec une page web.

Version imprimable

11/08/2005, 10h09
CrackDa

[resolus]Intergair avec une page web.

Bonjour je cherche desesperement comment interagir avec une page web avec le perl.
J'aimerai pour tester, essayer de poster ,grace a mon programme perl, un commentaire sur un livre d'or de ce type.

http://livredor.quick-web.com/sign.php?id=rom12004

Or je ne vois pas comment m'y prendre :oops: . J'ai fais un tour dans la FAQ et je n'ai rien trouver.

Merci d'avance.
11/08/2005, 12h53
GLDavid

Salut

Apparemment, tu n'as pas dû bien chercher dans la :faq: : http://perl.developpez.com/faq/?page...36#sectionC36b

@++
11/08/2005, 15h08
CrackDa

lol.
Non ce n'est pas ce que je voulais faire en faite c'est.
Comment je peut utiliser les socket pour me connecter a un site (port 80) et passer une commande HTTP.

Merci d'avance.
11/08/2005, 15h20
2Eurocents

Je me demande si ce que tu veux faire n'est pas couvert par les module LWP (Le Web en Perl) ou par WWW/Mechanize ... Essaies ces pistes.

j'ai tester un petit truc avec les sockets:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
#!usr/bin/perl
use strict;
 
use IO::Socket::INET;
 
    my $sock = IO::Socket::INET->new(
        PeerAddr => 'http://livredor.quick-web.com/?id=rom12004',
        PeerPort => 'http(80)',
        Proto    => 'tcp'
		)
 
print $sock "GET /sign.php?id=rom12004&nom=crackda&mail=crackda@no-mail.fr&text=test&posted=1 /HTTP/1.1";

Mais voilà bien sûr il y a des erreurs j'ai du mal m'y prendre.(Je decouvre les sockets ^^)

Merci

11/08/2005, 18h26
Jedai

Ce que tu veux faire est intégralement couvert par WWW::Mechanize, donc sauf si tu veux juste t'amuser avec les sockets, utilise ce module.
(NB : si tu connais la forme de la requête que tu dois envoyer pour mettre un nouveau commentaire, tu peux te contenter de LWP ou même de LWP::Simple, ça sera toujours plus agréable que les Sockets !!) :D

--
Jedaï

Oui en effet je me suis renseigner ca serait plus simple ,mais j'aimerai tout de même reussir a le faire sans j'ai tester cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #!/usr/bin/perl -w use IO::Socket; $url = "livredor.quick-web.com"; $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$url", PeerPort => "80"); print $socket "GET http://livredor.quick-web.com/sign.php?id=rom12004&nom=crackda&mail=crackda\@no-mail.fr&text=test&posted=1 HTTP/1.1\n\r"; while (my $ligne = <$socket>) { print ("$ligne\n"); }
Mais hélas le message ne se post pas, le prompteur dos stagne dans le vide aprés que le prog et demander l'accés a internet (a la vus de mon firewall je vous dis ca).

Je sais que je suis peut etre tetus avec mes sockets mais je tiens vraiment a la faire avec histoire d'avoir au moins manié les sockets dans ce contexte. Aprés il est clair que LWP est plus simple.

Merci d'avance a tous. :D

13/08/2005, 15h12
Jedai
Perl réinterprète \n selon le contexte pour faire une "vraie" fin de ligne, donc tu n'as pas besoin de mettre un \r. Par ailleurs, il faut une double fin de ligne pour mettre fin à une requète HTTP :
Code:

1 2 print $socket "GET http://livredor.quick-web.com/sign.php?id=rom12004&nom=crackda&mail=crackda\@no-mail.fr&text=test&posted=1 HTTP/1.0\n\n";
--
Jedaï
14/08/2005, 13h32
CrackDa

Merci :D ca marche.

ormis cela y a t'il un moyen de ne pas afficher les codes html de la page ?