[PERL] obtenir la date de la veille
Résolu
wafa_o
Messages postés
112
Statut
Membre
-
dubcek Messages postés 19021 Statut Contributeur -
dubcek Messages postés 19021 Statut Contributeur -
Bonjour
Je souhaite obtenir en perl la date de la veille.
Voilà mon script, je m'apercois aujourd'hui qu'il ne fonctionne plus. Pourquoi ? Eh bien nous somme le 01/05/2010, mon script me renvoie 05-00-110 alors que je voudrais 04-30-10 :S
Est ce que quelqu'un peut m'aider svp ??
#!/usr/bin/perl
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime(time);
$mois += 1 and $jour -=1 and $annee -= 100;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$mois-$jour-$annee";
print $d0,"\n";
Merci d'avance
Je souhaite obtenir en perl la date de la veille.
Voilà mon script, je m'apercois aujourd'hui qu'il ne fonctionne plus. Pourquoi ? Eh bien nous somme le 01/05/2010, mon script me renvoie 05-00-110 alors que je voudrais 04-30-10 :S
Est ce que quelqu'un peut m'aider svp ??
#!/usr/bin/perl
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime(time);
$mois += 1 and $jour -=1 and $annee -= 100;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$mois-$jour-$annee";
print $d0,"\n";
Merci d'avance
A voir également:
- Designation exacte fichier
- Écran de veille - Guide
- Veille - Guide
- Écran de veille gratuit - Télécharger - Thèmes & Fonds d'écran
- Veille prolongée - Guide
- Obtenir windows 10 gratuitement - Accueil - Mise à jour
1 réponse
hello
soustraire directement 24h de time
soustraire directement 24h de time
$ cat p4
#!/usr/bin/perl
my ($sec, $min, $heure, $jour, $mois,$annee, undef, undef, undef) = localtime(time-3600*24);
$mois += 1 and $annee -= 100;
$jour = sprintf("%02d",$jour);
$mois = sprintf("%02d",$mois);
my $d0 = "$mois-$jour-$annee";
print $d0,"\n";
$
$ ./p4
04-30-10
$
Du coup ca prend en compte l'année aussi non ? Parce que si la date du jour est le 1er janvier 2011, je voudrais avoir le 31 décembre 2010