Discussion :

[matt_bzh]

Bonjour,

je viens de commencer il y a quelques jours la programmation en Perl. Je souhaite en effet reprendre le script de Raditha Dissanyake pour faire un upload de fichier en PHP avec une barre de progression.
Je travaille sur windows dans un environnement local (easyPHP + ActivePerl 5.8).

Voici l'erreur 500 que me renvoit systématiquement Apache (error.log) :

[error] [client 127.0.0.1] can't open numfile: /tmp/test001! at c:\\PROGRA~1\\EASYPH~1\\www\\AIRLIQ~1\\cgi-bin\\test.cgi line 7.\n

Et voici mon script Perl (test.cgi) simplifié au maximum :

#!C:/Perl/bin/perl.exe
use CGI;
use Fcntl qw(EFAULT :flock);
use File::Temp qw/ tempfile tempdir /;

$monitor_file = "/tmp/test001";
sysopen(FH, $monitor_file, O_RDWR | O_CREAT | O_WRONLY | O_EXCL, 0777)
or die "can't open numfile: $monitor_file!";

J'ai d'abord pensé à un problème d'accès mais j'ai absolument tout les droits.

Savez-vous comment je pourrais résoudre ce problème ?
Merci d'avance

[Jedai]

Tout d'abord : ON NE POSTE PAS DANS CE FORUM, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.

Si tu regardais la valeur de $! dans ton die, on aurait un peu plus d'information.
Par ailleurs, OWRONLY | O_RDWR me paraît curieux comme flag...

Sans parler du fait que tu dis travailler sur Windows mais que tu essaies d'ouvrir /tmp/test001, ce qui fait très Unix (ça pourrait marcher, mais c'est un peu étrange). Il vaudrait mieux utiliser File::Temp (que tu as chargé mais que tu n'utilise pas ?), pour s'assurer d'être multiplateforme.

--
Jedaï

[matt_bzh]

ok désolé pour le post.

Merci pour ta réponse Jedai. Je tiens compte de tes remarques et je reposte.