Discussion :

[ash_rmy]

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 :

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
# 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.

[estofilo]

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.

[ash_rmy]

Bonsoir,

Merci pour tes conseils.

Lorsque je mets cette ligne de commande :

Code :

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

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 :

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

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.

[ash_rmy]

Bonsoir,

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

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
#!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 :

Code :

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

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.

[estofilo]

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.

[ash_rmy]

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 :

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

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

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

ash_rmy.

[estofilo]

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.