Connaître les variables d'environnement

**ash_rmy** · 08/11/2009, 11h53

Bonjour tout le monde,

J'ai trouvé un code sur le net pour trouver mes variables d'environnement :

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
#!C:/Perl/bin/perl.exe -s
use CGI;
 
$cgi = CGI->new;
print $cgi->header;
 
print <<EndOfHTML;
<html><head><title>Print Environment</title></head> 
<body>
EndOfHTML
 
foreach $key (sort(keys %ENV)) {
    print "$key = $ENV{$key}<br>\n";
}
 
print "</body></html>";

mais la log m'affiche des erreurs :

Code :

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

Bad file descriptor: don't know how to spawn child process: C:/Program Files/Apache Group/Apache2/cgi-bin/Variable__Env.cgi

Pourtant, l'exemple 'Hello World' marche bien avec le code suivant :

Code :

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

1
2
3
#!C:/Perl/bin/perl.exe -s
print "Content-type: text/html\n\n";
print "<H1>Hello World</H1>\n";

Merci de votre aide.

ash_rmy.

**estofilo** · 08/11/2009, 16h18

Ce que dit l'erreur, c'est qu'Apache n'arrive pas à lancer le programme, ce n'est pas un problème lié au contenu du script en Perl.

Si l'autre script fonctionne, vérifier que tout est identique entre les deux: le répertoire, les permissions, le détenteur du fichier etc...

**ash_rmy** · 09/11/2009, 11h26

C'est bon ! J'ai trouvé.

Code :

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

1
2
3
4
5
#!C:/Perl/bin/perl.exe -s
print "Content-type: text/html\n\n";
foreach $key (keys %ENV) {
print "$key --> $ENV{$key}<br>";
} ;

ash_rmy.

Connaître les variables d'environnement

Langage Perl

Discussions similaires

Partager

Partager