Variable avant et après "use strict;"...

Bonjour, voilà j'ai un script perl auquelle je veu ajouter une fonction de création de base de donnée suivant un utilisateur... la variiable $user1 est valide dans la 1er partie du script mais pas dans la 2de... (use strict;)... donc voilà mon bute est de que $user1 = $user2 mais comment faire???

voilà un bout de mon code :

Code:

---

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

#!/usr/bin/perl   #1er PARTIE DU SCRIPT #tous le début du script $user1 = "toto"; #tous le rest de mon script...   #2ème partie du script use strict; use DBI(); # Connect to the database. my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost", "root", "passroot", {'RaiseError' => 1}); my $user2 = $user1; $dbh->do("CREATE DATABASE $user2"); # Disconnect from the database. $dbh->disconnect();

---

Hello

Il butte sur ce point

Code:

---

my $user2 = $user1;

---

Or dans ton code, je ne vois nul part d'initialisation et de déclaration de $user1. D'où l'erreur à mon avis.

@++

Be si...(au début... ):

Code:

---

1 2 3 4

#1er PARTIE DU SCRIPT #tous le début du script $user1 = "toto"; #tous le rest de mon script...

---

:P

Et ça serait pas mieux de déclarer la pragma "strict" au début de ton code ???

Oui mais au début de mon script j'ai :

Code:

---

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

#récupération des variable user et pass use Getopt::Long; GetOptions("user:s"=>\$user, "pass:s"=>\$pass);   #contenu a ajouter dans le fichier d'alias d'apache $contenufile = "\nAlias /$user /home/$user/www/"; #nom (chemin) du fichier d'alias d'apache $nomfile = "alias_httpd.conf";   open(FILE, ">>$nomfile"); print FILE $contenufile; close(FILE);

---

et si je rajoute le strict au début mon ce code ne fonctionne plus a son tour... (je suis débutant en PERL...) aiguiller moi svp...

En fait, en Perl tu n'as pas besoin de déclarer tes variables puisque le pépère est capable tout seul comme un grand d'initialiser puis d'utiliser une variable dès qu'il la trouve pour la première fois dans ton script.

La pragma "strict" est là pour obliger le programmeur à déclarer ses variables. Déjà, ça fait plus propre et c'est surtout plus sécurisé dans le sens où une malheureuse faute de frappe dans le nom d'une variable sans le "use strict" risque de passer inapperçu et causer des bugs.

Dans ton script, le simple fait sur ce que j'ai vu d'utiliser une variable $user sans l'avoir au préalable déclarer, avec "use strict" le compilo ne doit pas compiler, c'est normal.

D'où provient le contenu par exemple de ta variable $user ? D'un programme externe ?

OK merci beaucoup... j'utilisai strict parce que j'avai vu ça dans un bout de programme... je croyai cela indispensable... Merci de votre aide a tous d'avoir aider un débutant... je vais bucher mon PERL... :D

Citation:

---

Envoyé par kepon85

je croyai cela indispensable...

---

Hum, si tu veux programmer proprement, "strict" est indispensable :D

Imagine que tu travailles sur un script de 1000 lignes qui utilise une variable $toto à peu près partout dans le code et qu'à un moment, une malheureuse faute de frappe fait que la variable $tooto débarque de nulle part et reçoit une valeur que $toto devait recevoir. Ton prog sera buggé et je te souhaite bon courage pour trouver l'erreur.

Avec un "use strict" au début de ton script, le compilo beuglera dès la première fois que tu lanceras le programme en t'affichant un joli Global symbol "$tooto" requires explicit package name

:wink:

confere FAQ perl ecrite par nos soins et cours de GLDavid :lol:
Le lien se trouve dans ma signature.
Il pourra t'aider à bien comprendre perl,
courage!

En effet autant pour toi.
Il fallait écrire :

Code:

---

1 2	my $user1 = "toto";

---

Et là, ça passe. Un point de détail. Le pragma strict n'est pas obligatoire mais chaudement recommandé si vous voulez écrire du Perl propre et sans erreur. Oui, le pragma Perl râle beaucoup mais dites vous que c'est pour votre bien et vous faire déclarer et initialiser correctement toutes vos variables.

@++

PS : argh grillé par Djibril ! D'ailleurs, je ne peux qu'acquiescer ce que dit Djibril :)

Merci beaucoup a tous pour les conseil et les liens!!! ce forum est vraiment super! :D

De rien, ça fait plaisir. N'oublies pas le tag résolu en cliquant surle bouton :resolu: ;)

@++