bon j'ai un ti soucis avec les sockets
je fais une premiere requete et tout se passe bien, seulement quand je veut a nouveau faire une requete dans ma socket, ben ca marche plus
alors je sais pas si c'est parce qu'il reste des truc dans le buffer qui fais deconner...
voila mon bout de code
et la la seconde requete ne me sors aucun resultat !
Code :
- #!/usr/bin/perl -w
- use strict;
- use IO::Socket;
- use IO::Socket::INET;
- my $sock = IO::Socket::INET->new(PeerAddr => "192.168.0.10",
- PeerPort => "80",
- Proto => 'tcp',
- Timeout => '5'
- );
- if ($sock)
- {
- $sock->autoflush(1);
- # requete 1
- print $sock "HEAD / HTTP\1.0\r\n\r\n";
- while (<$sock> )
- {
- chomp $_;
- print "$_\n";
- }
- sleep 1;
- # requete 2
- print $sock "HEAD / HTTP\1.0\r\n\r\n";
- while (<$sock> )
- {
- chomp $_;
- print "$_\n";
- }
- }
|
merci d avance pour votre aide