Perl

CGI upload et tmpFileName()

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : CGI upload et tmpFileName()

Elenglor

Bonjour à tous,

Je souhaite uploader un fichier excel (>5Mo) sur un serveur du réseau local.
Pour celà, j'utilise l'upload du module CGI (CGI.pm)

Je bloque actuellement sur tmpFileName(), passage obligatoire pour pouvoir faire un copy sur le serveur après l'upload.
Voilà mon code : formulaire HTML et script perl :

HTML :

Code :

<form name="uploadForm" action="" method="post" enctype="multipart/form-data">
<input type="hidden" name="MAX_FILE_SIZE" value="2097152">
<input type="file" size="50" name="uploaded_file" accept="text/*" maxlength="2097152">
<input type="Submit" value="Upload" name="uploadPL" >
</form>

J'ai aussi essayé en CGI mais ça ne change rien :

Code :

print $vbuf->start_multipart_form(
-action => "",
-method => "post",
-id => "uploadForm",
-name => "uploadForm"
);
print my $fileSelect = $vbuf->filefield(
-name =>'uploaded_file',
-default=>'starting value',
-size=>50
);
print('<input type="Submit" value="Upload" name="uploadPL" >');
print end_form();

Et voilà le script Perl:

Code :

my $uploaded_file=param('uploaded_file');
if( $uploaded_file ne "" )
{
my $file=upload('uploaded_file');
print "file: ".$file."<br>";
my $localfilename=tmpFileName($file);
print "localfilename: ".$localfilename."<br>";
copy( "$localfilename", "F:\www\tmp\.$file" );
}
}

Je récupère $uploaded_file qui m'affiche le nom du fichier, comme voulu
$file m'affiche également le nom du fichier (?)
et ... $localfilename ne m'affiche strictement rien

ça bloque à ce niveau là, je n'ai pas de fichier temporaire sur le serveur, en ayant créé une variable d'envirronnement TMPDIR comme indiquer dans les différents perldoc que j'ai rencontré sur le net

Voilà un peu d'aide serait bienvenue

see you

Publicité

Elenglor

Bon j'ai essayé ça :

Code :

my $uploaded_file = $vbuf->param('uploaded_file');
my $buffer;
open (OUTFILE,">>F:\\www\\tmp\\$uploaded_file" );
while (my $bytesread=read($uploaded_file,$buffer,10000000)) {
print OUTFILE $buffer;
}
close $uploaded_file;

A priori j'arrive à créer le fichier et à récupérer les données d'un petit .txt de 1ko, mais lorsque j'essaye avec un fichier excel de 1Mo j'ai une corruption de données (et c'est biensur pour un fichier excel que je veux uploader)

... any ideas ?

Elenglor

Je me réponds tout seul ...
A titre d'information, j'ai résolu le problème, il faut transmettre en binaire et non ascii ..

Code :

my $buffer;
open (OUTFILE,">>F:\\www\\tmp\\$uploaded_file" );
binmode OUTFILE;
while (<$uploaded_file> ) {
print OUTFILE;
}
close $uploaded_file;

FORUM HardWare.fr

Programmation

Perl

CGI upload et tmpFileName()

Sujets relatifs
Erreur suite upload image via coppermine	[RESOLU AVEC HONTE] Pb avec un upload de fichier un peu étrange :)
Formulaire CGI encodage adresse mail	[PHP] Upload de fichier presque fonctionnel (presk...)
Lire un fichier sur le client avant un upload	[Résolu] Récupérer le chemin d'un fichier que l'on upload
[PHP] Upload et sécurité : renommer le fichier suffit ?	Formulaire Perl/CGI générant du XML
Comportement fichiers temporaires apres upload	creer une vignette après un upload
Plus de sujets relatifs à : CGI upload et tmpFileName()

Page générée en 0.031 secondes