Problème socket et saut de ligne [Résolu]

Marsh Posté le 04-11-2002 à 10:52:32

Lorsque je recupère une page depuis le web avec le script suivant, les codes 0D,0A (cr/lf) sont enregistrés dans le fichier resultat.out. Pour les pages web, ce n'est pas genant mais pour les fichiers binaires, ça l'est un peu plus. Est-ce que quelqu'un sait comment supprimer ces 2 octets ?

Merci d'avance

Voici mon code:

Code :

#!/usr/bin/perl -w
use IO::Socket;
$server = 'www.google.fr';
$port = 80;
open OUTPUT, "+>resultat.out" or die "Impossible de créer le fichier resultat.out";
binmode OUTPUT;
$socket = IO::Socket::INET->new(
Proto => 'tcp',
PeerAddr => $server,
PeerPort => $port,
Timeout => 10,
);
unless($socket) {
die("Could not connect to $server:$port" );
}
$socket->autoflush(1);
print $socket ("GET / HTTP/1.1\nHost: www.google.frnn" );
$off = 1;
while ($line = <$socket> ){
if ($line =~ /^\s*\r\n$/){
$off = 0;
}unless($off){
print OUTPUT $line;
}
}
exit();

Message édité par BMenez le 04-11-2002 à 14:39:40

Reply

Marsh Posté le 04-11-2002 à 10:52:32

Reply

Marsh Posté le 04-11-2002 à 12:26:04

Voilà un de mes vieux scripts qui devrait marcher:

Code :

# Lecture de l'en-tete de la reponse...
while($reponse=<$socket> )
{
last if($reponse =~ /^\r$/)
}
# Lecture du corps de la reponse...
while($reponse=<$socket> )
{
last if(!($longueur = eval('0+0x'.$reponse)));
while($longueur>0)
{
$reponse = <$socket>;
if($longueur<0) { chop $reponse; chop $reponse; }
print OUTPUT $reponse;
$longueur -= length($reponse);
}
}

Note que dans ce script, j'ignore complètement le contenu de l'en-tête de la réponse HTTP. Tu peux ajouter un test sur le code de la réponse par exemple (404, etc.).

Reply

Marsh Posté le 04-11-2002 à 14:39:23

Merci pour ta réponse
Voilà comment je l'ai réduit, et ça fonctionne ! (Je ne comprends pourtant pas la différence fondamentale avec ce que j'avais fait...)
Merci encore!

Code :

# Lecture de l'en-tete de la reponse...
while($reponse=<$socket> )
{
last if($reponse =~ /^\r$/)
}
while($reponse=<$socket> )
{
print OUTPUT $reponse;
}

Reply

Marsh Posté le 05-11-2002 à 08:33:16

BMenez a écrit a écrit :

Je ne comprends pourtant pas la différence fondamentale avec ce que j'avais fait...

Ben la différence cruciale se situe ici :

Ton code d'origine :

Code :

if ($line =~ /^\s*\r\n$/){ }

Traduction : test si $line commencerait par "\s" (optionnellement), "\r" suivi pour finir de "\n"

Le code-solution :

Code :

last if($reponse =~ /^\r$/)

Ici, on ne parle que du "\r", la ligne ne doit contenir QUE le "\r" pour que la condition soit vraie.

C'est ton "\n" qui te foutait dedans ...

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Reply

Problème socket et saut de ligne [Résolu]

Sujets relatifs:

Leave a Replay