Fonction et variable global

Version imprimable

19/09/2008, 10h42
cassis2k

Fonction et variable global
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:

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:

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:

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 ^^
19/09/2008, 12h06
Arioch

Peux-tu montrer tout ton code ?

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

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
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
#\*======================================================================*/

19/09/2008, 12h46
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:

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

Il manque un 's' à la fonction key :

Code:

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

;)
19/09/2008, 13h59
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 ?
19/09/2008, 14h25
cassis2k

Je vais tenter de passer mes deux variables qui posent problème en argument à ma fonction pour voir si cela change quelque chose.
19/09/2008, 15h09
thierry.chich

Citation:

Envoyé par 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 ?

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.
19/09/2008, 15h53
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:

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

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:

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:

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ï

Ah oui, et Time_Backup....

Code:

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ï

20/09/2008, 10h35
cassis2k

Citation:

Envoyé par 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 ?

Parce que dans le bouquin.. :roll:
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 :D

Merci à tous pour vos lumières. :king: