1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
my (@Tableau,$SqlUser,$PassWord,$Machine,$DataServer,$UneBase,$DirSql);
##celle-ci est saisi directement par l'utilisateur et intégrer dans un tableau pour ensuite etre géré dans mon programe
@Tableau = (@ARGV);
#print "@Tableau\n";
if ( $Tableau[0] eq "-u" && $Tableau[2] eq "-p" && $Tableau[4] eq "-h" && $Tableau[6] eq "-d" && $Tableau[8] eq "-b" && $Tableau[10] eq "-i") {
$SqlUser=$Tableau[1];
$PassWord=$Tableau[3];
$Machine=$Tableau[5];
$DataServer=$Tableau[7];
$UneBase=$Tableau[9];
$DirSql=$Tableau[11];
}
else
{
print "Erreur d'utilisation parametre\n";
fct_what;
exit -1;
} |
Partager