Ouvrir un fichier Html avec Perl

Bonjour tout le monde,

Je crée un fichier Html avec un logiciel ensuite je souhaite ouvrir celui-ci avec Perl. Mais, il m'affiche le message d'erreur : "ERROR: unable to open the Html File".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

# forward the SAS program's output if(open (SASOUTFILE, "$webout")){ print "Content-type:text/html\n\n"; binmode(SASOUTFILE); # In case there are graphics, explicitly specify binary mode for WIN32 $nread = read(SASOUTFILE,$chunk,1024); while ($chunk ne ""){ print ($chunk); $nread = read(SASOUTFILE,$chunk,5000); } close SASOUTFILE; } else { CgiDie("ERROR: unable to open the Html File"); } #unlink ("$saslog"); #clean up temp files #unlink ("$sasfile"); #unlink ("$webout"); exit;

---

Pourtant ma variable "$webout" se réfère bien à un chemin contenant un fichier Html : "C:\Users\Ash_Rmy\Documents\00-Fox.D________________\00-ExecDistant\p158\aaaa.html".

Merci de votre aide.

ash_rmy.

Pour avoir la raison de l'échec de open(), afficher le contenu de la variable $! dans le message d'erreur.
Une pratique courante et utile est aussi d'afficher le chemin du fichier qu'on voulait ouvrir.

Bonsoir,

Merci pour tes conseils.

Lorsque je mets cette ligne de commande :

Code:

---

CgiDie("ERROR: unable to open the SAS output file - chemin : $ENV{$webout}");

---

ça ne m'affiche que:
ERROR: unable to open the SAS output file - chemin :


Mais lorsque je met celle-ci :

Code:

---

1 2	CgiDie("ERROR: unable to open the SAS output file - chemin : \"$webout\"");

---

Il m'affiche :
ERROR: unable to open the SAS output file - chemin : "C:\Users\Ash_Rmy\Documents\00-Fox.D________________\00-ExecDistant\p158\cgi20623.html"

Est ce ça veut dire que ma variable n'est pas bien interprété dans le code qui doit le lire ? Et c'est pour cela qu'il passe à l'erreur.

Merci de votre aide.

ash_rmy.

Bonsoir,

Lorsque j'exécute le code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!C:/Perl/bin/perl.exe -s print "Content-type: text/html\n\n"; $webout = "C:\\Users\\Ash_Rmy\\Documents\\00-Fox.D________________\\00-ExecDistant\\p158\\cgi7845.html";   if(open (SASOUTFILE, "$webout")){   print "Content-type:text/html\n\n"; binmode(SASOUTFILE); #In case there are graphics, explicitly specify binary mode for WIN32 $nread = read(SASOUTFILE,$chunk,1024); while ($chunk ne ""){ print ($chunk); $nread = read(SASOUTFILE,$chunk,5000); } close SASOUTFILE; }

---

Il m'affiche des erreurs dans la log :cry: :

Code:

---

1 2

[Sun Nov 08 20:44:41 2009] [error] [client 127.0.0.1] C:/Program Files/Apache Group/Apache2/cgi-bin/Open__Html.pl is not executable; ensure interpreted scripts have "#!" first line [Sun Nov 08 20:44:41 2009] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/Program Files/Apache Group/Apache2/cgi-bin/Open__Html.pl

---

Merci de votre aide.

ash_rmy.

Oublie $ENV{$webout} qui n'a rien à voir avec le problème vu que $webout est censé être un chemin de fichier, pas le nom d'une variable d'environnement.

Par contre je suggérais d'inclure la variable $! dans le message d'erreur, ainsi que $webout. Tu as mis $webout mais pas $! : il faut mettre les 2.

$! est une variable spéciale qui va être remplacée par la cause de l'erreur d'ouverture du fichier.

Bonjour,

Il me met ce message d'erreur : "No such file or directory". Parce qu'il passe à l'étape "if(open (SASOUTFILE, "$webout")){..." avant de la fin de la création du fichier Html. Comment faire pour qu'il attende la fin de l'exécution du programme :

Code:

---

system(" c:\\psexec -i -s -d [......]);

---

Y a-t-il des options à mettre en plus. Merci de votre aide.

ash_rmy.

D'après la doc, system() attend la fin du programme lancé avant de redonner la main, donc ça ne doit pas être ça le problème.