Perl

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème socket et saut de ligne [Résolu]

BMenez

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

Publicité

Toucouch

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.).

BMenez

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;
}

Aricoh

gentil mais fo po pousser

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

FORUM HardWare.fr

Programmation

Perl

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

Sujets relatifs
Variable Globale? comprend pas... [RESOLU]	un petit problème de débutant
problème textarea (entrée d'un smiley à l'emplacement du curseur)	Probleme avec la requete MySQL UPDATE
Probleme avec Eclipse	opengl probleme (photos inside)
[ JS ] générer un nombre aléatoire et probleme de tableau ( var )	probleme avec dev.c++
[PHP] Probleme avec les fonctions	[ Prog C ] Probleme avec les includes multiples...
Plus de sujets relatifs à : Problème socket et saut de ligne [Résolu]

Page générée en 0.033 secondes