Discussion :

[cassis2k]

Bonjour,

J'optimise mon script de sauvegarde et j'implémente de nouvelles actions. Du coup je rencontre de nouveaux problèmes

J'ai lu qu'une variable déclarée dans le corps du script était globale. Les exemples le montrent, une variable déclarée avant la fonction peut être utilisé dans cette fonction. (arrêté moi si je me trompe )

Ma fonction :

Code :

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

1
2
3
4
5
6
sub Archive_Tar {
	my $tar = `tar -cf $path_backup\/$archive_name *`;
	if ($? != 0) {
		print (BACKUP_LOG "\t[Erreur] Création de l'archive TAR impossible : $!\n");
	}
}

Mon code :

Code :

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

1
2
3
4
5
my $path_http = "/home/$domaine/http";
if (-r $path_http){
	my $archive_name = "backup.fichiers.".TimeBackup("date_backup").".tar";
	&Archive_Tar();
}

Mon problème, c'est ce message d'erreur :

Code :

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

1
2
Global symbol "$path_backup" requires explicit package name
Global symbol "$archive_name" requires explicit package name

Pour informations, mes pragma sont strict, warnings, bytes.
Merci d'avance aux personnes qui pourront m'éclairer ^^

[Arioch]

Peux-tu montrer tout ton code ?

[cassis2k]

Le voilà
Les précédentes versions n'incluaient pas de fonctions ni le multi domaine.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
#!/usr/bin/perl
use strict;     # vérifie que toutes les variables sont bien déclarées avec my
use warnings;   # demande l'affichage des warnings (erreurs)
use bytes;
#
# Domaines à sauvegarder + nom de la base
#
my %domaine = (
	domaine1 => 'base_1', 
	domaine2 => 'base_2', 
	domaine3=> 'base_3'
);
#
###### Début du script #####
#
foreach my $domaine (key (%domaine)) {
        my $path_backup = "/home/$domaine/backup";
	if (-w $path_backup) {
		chdir($path_backup);
		#
		# Sauvegarde des fichiers
		#
		my $path_http = "/home/$domaine/http";
		if (-r $path_http){
			chdir($path_http);
			#
			my $archive_name = "backup.fichiers.".TimeBackup("date_backup").".tar";
			&Archive_Tar();
			#
			chdir($path_backup);
		}
		else {
			print ("[erreur] Le répertoire $path_http ne peut pas être lu.\n");
		}
	}
	else {
		die;
	}
};
#
###### Fin du script #####
#
#
#Définition des fonctions
#
sub TimeBackup{
my @Ljour = qw(dimanche lundi mardi mercredi jeudi vendredi samedi);
my @Lmois = qw(janvier février mars avril mai juin juillet août septembre octobre novembre décembre);
 
my ($sec,$minute,$heure,$jour,$mois,$annee,$weekday,$ajour,$isdst) = localtime(time);
	$annee = 1900+$annee;
 
	if ($jour < 10) {$jour = "0".$jour;}
	if ($mois < 10) {$mois= "0".$mois;}
	if ($minute < 10) {$minute= "0".$minute}
 
	my ($date_backup) = shift; # On affecte l'argument à la variable $date_backup
 
	if ($date_backup eq "date_log"){
		my $date_log = "$Ljour[$weekday] $jour $Lmois[$mois] $annee";
		return $date_log;
	}
	$mois++;
	if ($date_backup eq "date_backup"){
		my $date_backup = "$annee.$mois.$jour";
		return $date_backup;
	}
	if ($date_backup eq "date_full_backup"){
		my $date_full_backup = "$annee.$mois.$jour"."_"."$heure\:$minute";
		return $date_full_backup;
	}
	if ($date_backup eq "heure_backup"){
		my $heure_backup = "$heure\:$minute";
		return $heure_backup;
	}
}
#
sub Archive_Tar {
	my $tar = `tar -cf $path_backup\/$archive_name *`;
	if ($? != 0) {
		print ("\t[Erreur] Création de l'archive TAR impossible : $!\n");
	}
}
#/*======================================================================*\
#||
#||      Fichier : backup.v.1.3.0.pl
#||                                                                          Version : 1.3.0
#\*======================================================================*/

[Arioch]

Je pense qu'il y a un soucis de portée pour tes deux variables.

As-tu la possibilité de déclarer tes deux variables $path_backup et $archive_name au début du script sans que ça cause préjudice au bon fonctionnement de ton script ?

Ah, et sinon j'ai vu une faute, cette boucle là doit poser un soucis au lancement de Perl :

Code :

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

foreach my $domaine (key (%domaine)) {

Il manque un 's' à la fonction key :

Code :

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

foreach my $domaine (keys (%domaine)) {

[cassis2k]

Ha oui le "S" ^^. Merci.

Si je déclare my $path_backup avant la boucle, je perds le côté dynamique de ma variable.

Une variable déclaré dans une boucle reste une variable globale ?

[cassis2k]

Je vais tenter de passer mes deux variables qui posent problème en argument à ma fonction pour voir si cela change quelque chose.

[thierry.chich]

Ha oui le "S" ^^. Merci.

Si je déclare my $path_backup avant la boucle, je perds le côté dynamique de ma variable.

Une variable déclaré dans une boucle reste une variable globale ?

Ta variable ne sera pas moins dynamique hors de la boucle.
Tu mets ton my en dehors du for, et après tu fait les itérations (simplement, tu remets pas le my).

D'une manière générale, la portée d'une variable se limite à la portion de code comprise entre les deux accolades qui encadrent ta variable. Et c'est donc clair que ta variable n'atteint pas les fonctions.