De l'aide pour vos programmes et scripts en Perl

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] /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();
[/code]

Alerter Rezoweb si ce message est illégal