calcul du prochain mardi , mercredi ... - Perl - Programmation
Marsh Posté le 08-08-2007 à 11:27:57
#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime) ;
foreach my $nb_jours ( 1 .. 76 ) {
my $date = strftime('%u:%d/%m/%Y', localtime(time() + $nb_jours*60*60*24) ) ;
# on obtient une date no_jour:jour/mois/annee (no_jour=1 pour lundi, ...)
next if ( $date !~ s/^2:// ) ; # on supprime le no de jour et le ':'
print "$date\n" ;
}
Marsh Posté le 12-07-2007 à 11:24:09
Salut,
Je souhaiterai faire un script perl pour charger un fichier de production.
Je voudrais qu'à partir d'un date saisi par exemple aujourd'hui : jeudi 12/07/2007 mon script soit capable de me trouver la date des 10 jeudi qui vont suivre, ou toutes les date des jeudi jusqu'à la fin de l'année.
Est-ce possible à votre avis ?
existe t il un module perl qui simplifie la chose ?
Merci de votre aide