[date]mktime cf php

Bonjour,
Existe-t-il en perl une fonction équivalente à la fonction mktime de php

Code:

---

entier mktime(entier heure, entier minute, entier seconde, entier mois, entier jour, entier annee)

---

Mon but est déterminer le nom d'un jour à partir d'une date sous la forme JJ/MM/AAAA
Tant que j'y suis, je cherche des fonctions qui pemettent:

• - de tester si une année est bissextille
  - de connaitre le nombre de jours d'un mois

:?:

merci

***ERREUR : Double envoi ***

Toutes mes excuses...

:cry:

Tous simplememnt:

Code:

---

1 2	use POSIX; POSIX::mktime(sec, min, hour, mday, mon, year, wday,, yday, isdst);

---

Le code suivant fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use strict;   use POSIX;   my @nomsMois=('janvier','février','mars','avril','mai','juin','juillet','août', 'septembre','octobre','novembre','décembre');   my @nomsJours=('dimanche','lundi','mardi','mercredi','jeudi','vendredi','samedi');   my ($jour,$mois,$annee)=(1,1,2006); # 1er janvier 2006   my $time = POSIX::mktime(0,0,0,$jour,$mois-1,$annee-1900);     my $wday = (localtime($time))[6];   print "$nomsJours[$wday] $jour $nomsMois[$mois-1] $annee\n";

---

donne le résultat suivant

Code:

---

1 2	dimanche 1 janvier 2006

---

une autre version:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use strict;   use POSIX;   my @nomsMois=('janvier','février','mars','avril','mai','juin','juillet','août', 'septembre','octobre','novembre','décembre');   my @nomsJours=('dimanche','lundi','mardi','mercredi','jeudi','vendredi','samedi');   my ($jour,$mois,$annee)=split "/", "01/01/2006"; # 1er janvier 2006   my $time = POSIX::mktime(0,0,0,$jour,$mois-1,$annee-1900);     my $wday = (localtime($time))[6];   print "$nomsJours[$wday] $jour $nomsMois[$mois-1] $annee\n";

---