[Debutant] format date de type yyyy-mm-dd 2eme question

Version imprimable

28/11/2005, 16h08
rdams

[Debutant] format date de type yyyy-mm-dd 2eme question
Bonjour,
je débute en perl, et j'aimerais récupérer la date au format yyyy-mm-dd
j'arrive à l'avoir dans ce format :
Code:

1 2 Mon Nov 28 15:55:48 2005
je pensais travailler sur cette chaine de caractère en faisant des extractions mais je n'ai pas le mois au format sur 2 chiffres.

Pouvez vous m'aider

Merci

Code:

1
2
3
4
5
6
7
8
9
 
my @tab_date =localtime(time);
my $jour = $tab_date[3];
my $mois = ($tab_date[4]+1);
my $annee =  ($tab_date[5]+1900);
my $heure = $tab_date[2];
my $minute = $tab_date[1];
my $sec= $tab_date[0];
print "$jour/$mois/$annee $tab_date[2]h:$minute:$sec\n";

voilà, ça t'aidera!!

28/11/2005, 16h53
rdams

merci pour ta réponse, ça fonctionne.

j'ai une autre question.

le mois et le jour sont retourné sur 2chiffres ou 1 seul s'il n'y en a qu'un?

janvier : 1 ou 01??
28/11/2005, 16h56
djibril

un chiffre je crois, à toi de rajouter le zero avec une regex.

Code:

$mois .= "0" if ($mois =~ /^\d$/);

voilà!!
28/11/2005, 17h02
rdams

ok merci
28/11/2005, 17h06
djibril

un petit tag resolu please.
28/11/2005, 17h12
shwin
Sinon avec Date::Manip de cpan
Code:

1 2 UnixDate($date, "%Y-%m-%d");
29/11/2005, 14h16
rdams

Une autre question sur les dates.

je récupère une date d'une bdd au format 2005-11-29.

comment savoir si c'est un lundi mardi etc.
pour la date du jour par exemple j'arrive à le ressortir en prenant date[6] suite à un localtime mais là je ne vois pas.

merci pour votre aide.

Avec la variable $wday. Cete variable contient le numéro du jour de la semaine (1 pour lundi, 2 pour mardi etc...).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
my %days = ( 1 => 'lundi',
             2 => 'mardi',
             3 => 'mercredi',
             4 => 'jeudi',
             5 => 'vendredi',
             6 => 'samedi',
             7 => 'dimanche');
 
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);
 
 
print $days{$wday};

29/11/2005, 14h40
rdams
oui ça fonctionne pour un objet date
mais comment retrouver le jour d'une variable

comment savoir si $date est un lundi, mardi??
Code:

1 2 $date='2005-10-02';

Code:

1
2
3
4
5
6
7
8
9
use Date::Manip;
 
my @time = localtime(time());
my $date_day = sprintf("%02d",$time[3]);
my $date_month = sprintf("%02d",$time[4]+1);
my $date_year = $time[5]+1900;
my $date = qq|$date_year-$date_month-$date_day|;
 
my $jour = UnixDate($date,"%A");

http://search.cpan.org/~sbeck/DateManip-5.44/Manip.pod

01/12/2005, 10h46
rdams

ok merci