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.

[cassis2k]

Heu, j'ai raté un chapitre de mon bouquin avec l'histoire des accolades ??!

mon problème est que je ne peux pas déclarer $path_backup avant puisque j'utilise une variable initialisée par ma boucle..

Code :

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

1
2
foreach my $domaine (keys (%domaine)) {
        my $path_backup = "/home/$domaine/backup";

[Jedai]

Bon tu as des problèmes de portées mais ce n'est pas ça la vraie question... C'est plutôt : Pourquoi passes-tu par des variables globales plutôt que par des paramètres à tes fonctions ?
Les variables globales sont à éviter comme la peste tant qu'on en a pas besoin, or les utiliser dans ton cas te complique la vie plus qu'autre chose !

Code :

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

1
2
3
4
5
sub tar_pwd_in_file {
   my $path_archive = shift;
   system("tar -cf $path_archive *")
      and warn "\t[Erreur] Création de l'archive TAR impossible : $!\n";
}

Et l'utilisation :

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
foreach my $domaine (keys (%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";
      tar_pwd_in_file( "$path_backup/$archive_name" );
      #
      chdir($path_backup);
    }
    else {
      warn "[erreur] Le répertoire $path_http ne peut pas être lu.\n";
    }
  }
  else {
    die "[erreur fatale] Le répertoire $path_backup ne peut être utilisé.";
  }
}

En bref écrit du Perl, pas du shell abâtardi... (Déjà ce serait plus propre d'utiliser le module Archive::Tar à la place, mais pour un script vite fait c'est ok)

--
Jedaï

[Jedai]

Ah oui, et Time_Backup....

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
use locale;
use POSIX qw(strftime);
 
 
my %formats = (
	       date_log => '%A %d %B %Y',
	       date_backup => '%Y.%m.%d',
	       date_full_backup => '%Y.%m.%d_%H:%M',
	       heure_backup => '%H:%M',
);
 
sub time_string {
  my $format = shift;
 
  if( exists $formats{$format} ) {
    return strftime($formats{$format}, localtime);
  }
  else {
    die "[erreur fatale] Le format de date '$format' n'est pas reconnu.\n";
  }
}

--
Jedaï

[cassis2k]

Bon tu as des problèmes de portées mais ce n'est pas ça la vraie question... C'est plutôt : Pourquoi passes-tu par des variables globales plutôt que par des paramètres à tes fonctions ?

Parce que dans le bouquin..
En tout cas je prends note de toutes vos remarques et je vais corriger ça

En savoir plus sur la porté des variables, merci thierry.chich
Pas de commandes système si un module existe
Passer mes arguments à la fonction
Décortiquer la fonction Time_Backup de Jedai

Merci à tous pour vos lumières.