[langage] Probleme avec caractère '$' dans script Perl

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

Code:

---

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 :wink:

J'ai eu un problème similaire. Aparament Perl ,n'apprécie que moyennement les multiples traitement sur une seule ligne. Si tu découpes ta chaine avant de l'afficher, çà donne quoi?

Ensuite pourquoi tu places tes "" autour de $Rep_actif puisqu'il sera interprété comme étant une chaine?

Je saisi pas!

Ce script en fait écrit un fichier php qui lui utilisera des variables '$'.

si j'utilise que le code ci-dessous cela fonctionne

Code:

---

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 !';

---

Mais ça me sert à rien... :cry:

De façon générale, dans nombre de langages, le caractère \ a des propriétés un peu magiques dans les chaînes. En particulier, l'ajouter devant un caractère qui n'a pas de propriété particulière lui donne souvent un "sens" différent (exemple le n et \n), mais l'inverse peut également être dit, c'est à dire qu'un \ placé devant un caractère qui a un "sens" spécial le rendra ordinaire (exemple par excellence \ et \\ ! :wink: ).
Dans votre cas, le caractère spécial qui provoque un phénomène indésiré est le $, aussi il vous suffit de "l'échapper" comme on dit : \$ .

Code:

---

1 2	print LOG "\$Rep_actif=substr(strrchr(dirname(\$PATH_TRANSLATED),'/'),1);\n";

---

Une autre solution est d'utiliser les simples quotes ' pour entourer votre chaîne, mais ceci pose d'autres problèmes ici vu que vous utilisez d'autres ' et un \n qui ne serait pas interprété dans une chaîne entre '.
:D

--
Jedaï

Merci ça a l'air de fonctionner.
J'ai trouvé que cette solution pour parer le SAFE MODE de Php. :wink:

Cepandant un un problème se pose avec le code ci-dessous!

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl -wT use strict; use CGI ':standard';     my $IdForum = param('Id_forum'); mkdir ('./$IdForum',0777);

---

le répertoire créé s'appelle '$IdForum' et non pas comme la valeur de param('Id_forum') transmis au script :!:

Comment résoudre cela :cry: :?:

Merci

salut

Code:

---

mkdir ("./$IdForum",0777);

---

il ne faut pas mettre de simple quote sinon tes variables ne sont pas interpretees
utilise des doubles quotes, ou pas de quotes du tout si tu as simplement une variable ( par exemple mkdir ($dir, 0777) )

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl -wT use strict; use CGI ':standard';     my $IdForum = param('Id_forum'); mkdir ("./$IdForum",0777);

---

Cette fois ça me dit :

Citation:

---

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request....

---

Tu tournes en mode tainted, si tu veux mon avis, mkdir ne doit pas trop apprécier que tu lui demande d'utiliser une variable encore "taintée". Tu peux nettoyer la variable en la faisant passer par une regex par contre. :D

--
Jedaï

tainted :?: J'ai trouvai ça mais j'y pige rien :cry:

Citation:

---

Q17: How do I "untaint" a variable?
Once a variable is tainted, Perl won't allow you to use it in a system(), exec(), piped open, eval(), backtick command, or any function that affects something outside the program (such as unlink). You can't use it even if you scan it for shell metacharacters or use the tr/// or s/// commands to remove metacharacters. The only way to untaint a tainted variable is by performing a pattern matching operation on it and extracting the matched substrings. For example, if you expect a variable to contain an e-mail address, you can extract an untainted copy of the address in this way:
$mail_address=~/(\S+)\@([\w.-]+)/ or die "invalid address";
$untainted_address = "$1\@$2";

This pattern match accepts e-mail addresses of the form "who@where" where "where" looks like a domain name, and "who" consists of one or more non-whitespace characters. Note that this regular expression will not remove shell meta-characters from the e-mail address. This is because it is perfectly valid for e-mail addresses to contain such characters, as in:
fred&barney@bedrock.com
Just because you have untainted a variable doesn't mean that it is now safe to pass it to a shell. E-mail addresses are the perfect examples of this. The taint checks are there in order to force you to recognize when a variable is potentially dangerous. Use the techniques described in Q44 to avoid passing dangerous variables to the shell.

---

Apparement il s'agit bien d'un problème lorsque le parametre est transmis par l'Url.

Ne fonctionne pas:

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -wT use strict; use CGI ':standard';     my $dir = param('Id_forum'); my $dir_path = "../html/repertoire";   mkdir ("$dir_path/$dir", 0777);

---

Lorsque je déclare ma variable dans le script tout fonctionne bien!

Fonctionne :

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl -wT use strict; use CGI ':standard';   my $dir = "test"; my $dir_path = "../html/repertoire";   mkdir ("$dir_path/$dir", 0777);

---

Pourquoi :?: :!: :!:

J'AI TROUVE :idea: :idea: :D :D

Il suffit de supprimer le switches T permettant de signaler une erreur en cas d'utilisation de données exterieures non controlées (tainted).

Fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w use strict; use CGI ':standard';     my $dir = param('Id_forum'); my $dir_path = "../html/repertoire";   mkdir ("$dir_path/$dir", 0777);

---

Tous ces cheveux arrachés pour un semble T :!: Snif :cry: