Bonjour,
je teste le code ci-dessous mais les lignes contenant le symbole '$' bloque le fonctionnement du script.

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
18
19
20
 
#!/usr/bin/perl -wT
use strict;
use CGI ':standard';
 
 
mkdir("./test",0777);
open (LOG,">./test/index.php");
 
# flock (LOG,2);
print LOG "/* ON DETERMINE LE NOM DU REPERTOIRE EN COURS */\n";
print LOG "$Rep_actif=substr(strrchr(dirname($PATH_TRANSLATED),'/'),1);\n";
 
print LOG "/* REDIRECTION VERS LA PAGE INDEX DE L APPLICATION */\n";
print LOG "header("Location:../../index.php?IdRep=".$Rep_actif);\n";
 
close (LOG);
 
print "Content-type: text/html\n\n";
print 'Création du répertoire et de son fichier index réussi !';
Comment faire pour que $Rep_actif soit considéré comme une chaine texte et nom comme une variable ?

Merci