Bonjour,

Je m'adresse à vous car je planche depuis quelques semaines déjà sur un projet de sauvegarde de mes bases de données en perl pour les sauvegarder ensuite dans un dossier compresser.

Cependant, je ne trouve pas comment lister mes bases et pour chaque bases faire un dump qui est envoyé dans un fichier.sql par exemple.
Je bloque au listing et à la création du fichier:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl -w
 
use strict;
use MySQL::Backup;
use DBI;
 
my $usersql = "supermoi";
my $mdpsql = "tsointsoin";
my $portSQL = "3306";
my $saveDB;
my $hostname ="localhost";
my @listBDD;
 
my $drh = DBI->install_driver("mysql");
@listBDD = $drh->func($hostname, $portSQL, '_ListDBs');
@listBDD = $drh->func('_ListDBs');
 
foreach my $db (@listBDD) {
 
$saveDB = new MySQL::Backup($listBDD[$db],$hostname,$usersql,$mdpsql,{'USE_REPLACE' => 0, 'SHOW_TABLE_NAMES' => 1});
print $saveDB -> create_structure();
print $saveDB -> data_backup();
 
}
Quand je lance ce script, il n'affiche rien. Alors que je voudrais récupérer un fichier SQL de création de table + INSERT TO.

Voilà et merci de votre aide.