Telechargement de donnees forcé:

**mego** · 01/08/2006, 14h42

Bonjour,

j'utilise un script Perl/CGI qui permet de demander le telechargement d'un fichier plutot que de l'ouvrir dans le navigateur (qui lui fonctionne bien), mais le probleme que je rencontre est que lorsque c'est un fichier texte, il n'est pas transfere en mode texte ( les renvois a la ligne sont converties en carracteres speciaux !! ) alors que si je prend le meme fichier d'origine et que je fais un bouton droit "enregistre sous" il est correct.

voici la page HTML:

Code :

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

1
2
3
4
5
6
7
8
 
<html>
<body>
<form name="test">
</form> 
  <a href="/cgi-bin/download.cgi?ID=test.xml&filename=result.xml">Download File</a>
</body>
</html>

et le script CGI:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!C:/Perl/bin/perl
 
	use CGI ':standard' ;
 
	my $files_location ;
	my $ID ;
	my $filename ;
	my @fileholder ;
 
 
	$ID	= param( 'ID' );
	$filename	= param( 'filename' ) ;
 
	if ($ID eq '') { 
		print "Content-type: text/html\n\n"; 
		print "You must specify a file to download."; 
	}
	else {
		open(DLFILE, "<$ID") || Error('open', 'file'); 
		@fileholder = <DLFILE>; 
		close (DLFILE) || Error ('close', 'file'); 
 
		open (LOG, ">>c:/TEMP/test.log") || Error2('open', 'file');
		print LOG "$ID\n";
		close (LOG);
 
		print "Content-Type:application/x-download\n" ; 
		print "Content-Disposition:attachment;filename=$filename\n\n" ;
		print @fileholder
	}
 
	sub Error {
		print "Content-type: text/html\n\n";
		print "$ID" ;
		print "The server can't $_[0] the $_[1]: $! \n";
		exit;
	}

quelqu'un aurait-il une solution ?

Merci d'avance.

**mego** · 02/08/2006, 10h04

Pour information ci-joint les images des 2 fichiers :

le formatage du fichier de depart : Nom : test2.jpg
Affichages : 69
Taille : 9,4 Ko

le formatage du fichier telecharge : Nom : test1.jpg
Affichages : 43
Taille : 8,5 Ko

ce sont les "\n" qui sont remplaces.

Merci d'avance.

**Jedai** · 02/08/2006, 10h25

A vrai dire si tu protestes c'est bien uniquement parce que tu utilises Notepad pour regarder ton fichier... Notepad est une abomination qui doît être à jamais oubliée ! C'est le seul éditeur de texte que je connaîsse qui ne soit pas capable de gérer le format Unix de fin de ligne. Essaie avec Wordpad, normalement ça devrait mieux passer.
Ton problème provient du fait que si tu fais le téléchargement direct, celui-ci se fait en mode texte, et les \n du fichier transmis sont donc transformés en \r\n quelque part sur le chemin, alors qu'avec ta méthode le application/x-download force le téléchargement en mode binaire où la conversion n'est pas effectuée. Plus le fait que tu ouvres ton fichier à télécharger en mode texte, ce qui est une très mauvaise idée... Utilises plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
open(DLFILE, '<:raw', $ID) || Error('open', 'file');
 
open (LOG, ">>c:/TEMP/test.log") || Error2('open', 'file');
print LOG "$ID\n";
close (LOG);
 
print "Content-Type:application/x-download\n" ; 
print "Content-Disposition:attachment;filename=$filename\n\n" ;
print while <DLFILE>;
close (DLFILE) || Error ('close', 'file');

--
Jedaï

**mego** · 02/08/2006, 10h42

Merci, maintenant le fichier resultat s'ouvre nickel dans tous les editeurs.
je ne savais pas que le x-download force au binaire.

pour info, je ne m'en suis pas apercu avec notepad au depart, mais avec ultraEdit, en effet lors de l'ourverture du fichier il me pose la question "voulez-vous convertir le fichier en mode DOS" donc j'ai trouvé ca louche et je l'ai ouvert dans notepad car je savait qu'il affiche les carractères spéciaux.

**Jedai** · 02/08/2006, 16h37

Envoyé par mego

pour info, je ne m'en suis pas apercu avec notepad au depart, mais avec ultraEdit, en effet lors de l'ourverture du fichier il me pose la question "voulez-vous convertir le fichier en mode DOS" donc j'ai trouvé ca louche et je l'ai ouvert dans notepad car je savait qu'il affiche les carractères spéciaux.

Notepad n'affiche pas les caractères spéciaux, c'est juste qu'il ne sait même pas gérer les passages à la ligne type Unix... S'il affichait les caractères spéciaux, il mettrait autre chose qu'un petit carré blanc à la place ! SciTE par exemple sait afficher les caractères spéciaux : tu peux identifier tous les caractères spéciaux avec SciTE, tu peux même lui demander d'afficher les caractères de fin de ligne pour voir ce qu'il en est. Il y en a d'autres. En tout cas Notepad est vraiment l'un des pire éditeur de texte.

--
Jedaï

Telechargement de donnees forcé:

Web Perl

Discussions similaires

Partager

Partager