Discussion :

[parsy]

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

Code :

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

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

[mhooreman]

***ERREUR : Double envoi ***

Toutes mes excuses...

:cry:

[mhooreman]

Tous simplememnt:

Code :

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

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

[parsy]

Le code suivant fonctionne

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

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

1
2
 
dimanche 1 janvier 2006

[parsy]

une autre version:

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