[web] upload fichier perl

Bonjour,

Je souhaiterais à partir d'un formulaire HTML permettre à l'utilisateur de mettre le chemin d'un fichier pour que je puisse le telecharger sur serveur...
Pour cela j'ai mis un bouton dans ma page html qui me lance un script ...
$query->header;
$dir="c:\\web2005\\Apache2\\cgi-bin";

$size = $bytes_count =0;
$_ = $file_query = $query->param('fichier');
s/\w://;
s/([^\/\\]+)$//;
$_ = $1;
s/\.\.+//g;
s/\s+//g;
$file_name = $_;
print $file_name;

open(FILE,">>$dir\\$file_name") ;

$time=time();
print $file_name;
while ($bytes_count = read($file_query,$buff,2096)) {
$size += $bytes_count;
binmode FILE;
print FILE $buff;
}
close(FILE);

Je vois bien le bon file_name, par contre , le fichier est bien crée mais sa taille est de 0 octets...

Quelqu'un a une idée du pb?

MErci

ton formulaire est-il bien multipart ?

Code:

---

1 2	<form action="" method="post" ENCTYPE="multipart/form-data">

---

@+
Mr6

merci c'était ça qui bloquait!

merci c'était ça qui bloquait!