Discussion :

[Tiger-222]

Bonjour,

Voici le morceau de code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if ( open my $FILE, '>>', $image ) {
	print {$FILE} $requete->content;
	close $FILE;
}

Le script récupère une image sur un site pour la recopier dans un fichier.
Sous GNU/Linux, tout fonctionne très bien, mais voilà que sous windows (Seven en l'occurence), impossible de visualiser l'image nouvellement créée.
Windows me dit que s'il s'agit d'un fichier image, alors il est corrompu.
J'ai vite fait regarder en hexa ce que donne les deux images et la différence n'est pas flagrante ( 218 octets), les en-têtes JPEG sont bonnes.

Alors s'agit-il d'un soucis d'encodage lors de la requête HTTP, ou une fonction mal utilisée ?
J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print {$FILE} $requete->content;

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print {$FILE} $requete->decoded_content;

en vain.

Merci d'avance pour votre réponse.

[Philou67430]

Je te conseille d'exécuter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

binmode $FILE

après ton open.

Voir perldoc -f binmode pour le détail

[Tiger-222]

Synchro ! Je venais justement de trouver cette réponse.

Merci Philou67430.