Discussion :

[cassis2k]

Bonjour à tous,

Je suis en train de réaliser un script de backup pour un répertoire qui héberge un site web en cours de développement. je veux donc faire une sauvegarde MySQL et des fichiers tous les jours.

J'ai décidé d'afficher la date sur le nom de l'archive tar. Et puis je me suis dit, pourquoi ne pas générer un fichier de log. J'ai donc deux formats différents :

backup.testvb.2008.02.05_13:2
La sauvegarde du Mardi 5 février 2008 à commencée à xxx

Voilà le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
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;
	my $date_log = "$Ljour[$weekday] $jour $Lmois[$mois] $annee";
	$mois++;
	if ($jour < 10) {$jour = "0".$jour;}
	if ($mois < 10) {$mois= "0".$mois;}
	my $date_backup = "$annee.$mois.$jour"."_"."$heure:$minute";

Je ne comprends pas le $moi++; Plus précisément, je ne comprends pas sa présence et surtout pourquoi s'il n'est pas présent les variables $date_log et $date_backup ne sont pas identiques.

Un grand merci à la lumière qui viendra m'éclairer

[Jedai]

Les tableaux en Perl commencent à l'indice 0, mais la notation usuelle pour les mois commence à 1. localtime renvoie un mois de 0 à 11 mais tu dois l'incrémenter pour afficher sa valeur numérique (par contre il convient parfaitement comme indice du nom du mois dans @Lmois).

--
Jedaï

[cassis2k]

Ok je comprends mieux. merci beaucoup Jedai