|
|
|
|
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 :
#!/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(); Salut,
# 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();
Donc tu as le descripteur de ta base de donnée mysql dans la variable $dbh. Ensuite tu fait un $dbh->do("CREATE DATABASE $user2) qui n'est pas logique. Dans une base de donnée on peut créer une table mais pas une autre base. En ce qui concerne les variables $user1 et my $user2, je ne vois pas la raison pour laquelle tu n'utilise pas use strict au début de ton script. Tu peut entourré avec des accolades {} les parties de script pour limiter la portée de tes variables. Mais tu fais comme tu veux. Voilà une solution pour ton problème avec les variables $user1 et my $user2 #! /usr/bin/perl
$user1="toto";
sub var { return $user1 }
use strict;
# my $user2=$user1 ne fonctionne pas à cause de use strict
#Global symbol "$user1" requires explicit package name
my $user2=var;# en revanche la fonction var nous retourne $user1
print "$user2\n";# maintenant $user2 vaut toto
|
Changer d'opérateur avant la fin du contrat Comment migrer des pokemon sur perl Copain avant Copains d'avant mon compte Les copains d'avant Ou est le vieux chateaux dans pokemon perl Perl Perl foreach Perl variable d'environnement Perl variable non définie Protéger les variables avant enregistrement bdd php Return the same variable who goes in perl Script perl Type de variable en java Variable globale php Variable require php Variables perl Votre navigateur internet n'accepte pas les cookies. vous devez modifier cette option dans vos paramètres de sécurité avant de c
