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

**kepon85** · 20/02/2006, 12h28

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 :

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
#!/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();

**GLDavid** · 20/02/2006, 12h40

Hello

Il butte sur ce point

Code :

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

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.

@++

**kepon85** · 20/02/2006, 13h17

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

Code :

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

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

**Arioch** · 20/02/2006, 13h28

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

**kepon85** · 20/02/2006, 13h33

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

Code :

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

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

**Arioch** · 20/02/2006, 13h37

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 ?

**kepon85** · 20/02/2006, 14h04

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

**Arioch** · 20/02/2006, 14h08

Envoyé par kepon85

je croyai cela indispensable...

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

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

**djibril** · 20/02/2006, 14h10

confere FAQ perl ecrite par nos soins et cours de GLDavid

Le lien se trouve dans ma signature.
Il pourra t'aider à bien comprendre perl,
courage!

**GLDavid** · 20/02/2006, 14h13

En effet autant pour toi.
Il fallait écrire :

Code :

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

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