Discussion :

[rdams]

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 :

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

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

[djibril]

Code :

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

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!!

[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??

[djibril]

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

Code :

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

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

voilà!!

[rdams]

ok merci

[djibril]

un petit tag resolu please.

[shwin]

Sinon avec Date::Manip de cpan

Code :

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

1
2
 
UnixDate($date, "%Y-%m-%d");

[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.

[Invité]

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

Code :

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

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};

[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 :

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

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

[shwin]

Code :

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

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

[rdams]

ok merci