Elmoricq Modérateur
| Il suffit de retrancher à time() le nombre de secondes écoulées en une journée :
Code :
- #!/usr/bin/perl -w
- use strict;
- my $secondes_par_jour = 60 * 60 * 24;
- my @date = localtime(time() - $secondes_par_jour);
- # Le mois est code sur 0..11, et l'annee demarre a 1900, donc on adapte
- my ($jour, $mois, $annee) = ($date[3], $date[4]+1, $date[5]+1900);
- printf("Hier, nous étions le : %02d/%02d/%04d\n", $jour,$mois,$annee);
|
Message édité par Elmoricq le 15-06-2005 à 16:12:54
|