Discussion :

[cassis2k]

Le sujet à déjà été traité de différentes façon du coup me voilà un peu géné de demander..

Je réalise un script de sauvegarde. Les commandes tar et mysqldump sont exécutées par le shell. J'ai implémenté une log afin de garder une vu sur les erreurs éventuelles.

J'ai tenté plusieurs façons différentes sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
my $sql_dump = system("mysqldump -u $db_username -p$db_password $database > $dump_name");
if ($sql_dump){
	print (BACKUP_LOG "\tCréation du dump OK\n");
}
else {
	print (BACKUP_LOG "\t[Erreur] Export de la base impossible.\n");
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if (my $sql_dump = `mysqldump -u $db_username -p$db_password $database > $dump_name`){
	print (BACKUP_LOG "\tCréation du dump OK\n");
}
else {
	print (BACKUP_LOG "\t[Erreur] Export de la base impossible.\n");
}

L'export fonctionne très bien mais dans ma log, toujours le même message : [Erreur]..

Une lumière pourrait elle m'éclairer ?

[Invité]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
system("mysqldump -u $db_username -p$db_password $database > $dump_name") or die("Erreur: $!");

Regarde si ça ne te donne pas plus d'infos.

[cassis2k]

Merci pour ta réponse.

J'ajoute le bloc complet car l'erreur vient pt être de plus haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
foreach my $database (@bases){
	if (defined($db_username) and defined($db_password)) {
		my $dump_name = $database . ".dump." . TimeBackup("date_backup").".sql";
		#
		my $sql_dump = system("mysqldump -u $db_username -p$db_password $database > $dump_name") or die("Erreur: $!");
		#
		unshift (@dump_base, $dump_name);
	}
else {
	print (BACKUP_LOG "[Erreur] Authentification à la base $database impossible.\n");
	}
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Erreur:  at ./backup.manuelle.pl line 69.

Le résultat est presque le même. Le script s'arrête pourtant le dump de la base s'effectue correctement (le fichier est présent dans le répertoire).

[cassis2k]

J'ai continuer à chercher et j'ai trouvé le fonctionnement de system. Il retourne 0 quand tout est Ok, évidement c'est interprété différemment dans Perl.

Voici le bon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
foreach my $database (@bases){
	if (defined($db_username) and defined($db_password)) {
		my $dump_name = $database . ".dump." . TimeBackup("date_backup").".sql";
		#
		my $sql_dump = system("mysqldump -u $db_username -p$db_password $database > $dump_name");
		if ($sql_dump != 0){
			print (BACKUP_LOG "\t[Erreur] Export de la base impossible : $!\n");
		}
		unshift (@dump_base, $dump_name);
	}
	else {
		print (BACKUP_LOG "[Erreur] Authentification à la base $database impossible.\n");
	}
}

Merci Mygale1978 pour le $!, je l'avais zappé alors qu'il est important