Mysqldump et perl

Version imprimable

12/06/2012, 14h06
lavazavio

Mysqldump et perl

Bonjour,

Je suis en train de me faire un script de backup en Perl.
Sa fonction sera notamment de faire des dump de bases de données MySQL sous Windows.

Mais voila, lorsque je lance la commande mysqldump depuis le script perl, le dump échoue et mysql revoit une erreur de connexion à la base, alors que la même commande exécutée depuis l'invite de commande fonctionne...

Voici le code dans le script :

Code:

system("\"C:\\Program\ Files\\MySQL\\MySQL\ Server 5.1\\bin\\mysqldump.exe\" --host=$DB_HOST --user=$DB_USER -password=$DB_PASS --single-transaction $DB_DBNAME > $DB_DEST\\$DB_DBNAME-$date.sql")

Comme vous le voyez, j'ai pourtant protégé au maximum les backslashs et les espaces :) !

Voici ce que me retourne l'exécution du script :

Code:

mysqldump: Got error: 1045: Access denied for user 'user1'@'localhost' (using password: YES) when trying to connect

Comment faire un mysqldump sous Windows en Perl ?

Merci pour vos lumières ;)

Peux-tu mettre ce code et nous retourner le résultat :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
my $programme_dump = 'C:/Program Files/MySQL/MySQL Server 5.1/bin/mysqldump.exe';
my $commande       = '"' . $programme_dump . '" ' 
  . "--host=$DB_HOST "
  . "--user=$DB_USER "
  . "-password=$DB_PASS "
  . "--single-transaction $DB_DBNAME "
  . "$DB_DEST/$DB_DBNAME-$date.sql"
  ;
 
print "[$commande]\n";
 
system $commande;

Et voila :

Code:

1
2
["C:/Program Files/MySQL/MySQL Server 5.1/bin/mysqldump.exe" --host=localhost --user=aq1 -password=aq1 --single-transaction aq1 > C:\Users\toto\Desktop/aq1-120612.sql]
mysqldump: Got error: 1045: Access denied for user 'aq1'@'localhost' (using password: YES) when trying to connect

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my ($DB_DEST, $DB_HOST, $DB_USER, $DB_PASS, $DB_DBNAME) = ('C:/temp', 'localhost', 'aq1', 'aq1', 'aq1');
my $programme_dump   = File::Spec->catfile('C:/Program Files/MySQL/MySQL Server 5.1/bin/mysqldump.exe');
my $fichier_resultat = File::Spec->catfile($DB_DEST, "$DB_DBNAME.sql");
 
my $commande       = '"' . $programme_dump . '" ' 
  . "--host=\"$DB_HOST\" "
  . "--user=\"$DB_USER\" "
  . "--password=\"$DB_PASS\" "
  . "--single-transaction=\"$DB_DBNAME\" "
  . "> \"$fichier_resultat\"";
  ;
 
print "[$commande]\n";
system $commande;

si ça ne fonctionne pas, copie colle la commande que le programme te donne et lance le dans le DOS.
si toujours rien, essaye de de connecter via phpmyadmin ou en console pour voir si les paramètres que tu rentres sont exacts.

22/06/2012, 12h28
lavazavio

Bonjour,

Désolé pour le temps que j'ai mis pour répondre.

Je viens de tester ton dernier bout de code et cela fonctionne :D !

Je vais donc l'utiliser. Mais je ne comprends toujours pas pourquoi les bouts de code précédents ne fonctionnaient pas. C'est un mystère...

Merci beaucoup pour ton aide en tout cas ;).