Discussion :

[LFC]

Bonjour,

J'ai un problème avec cette fonction timelocal et le 31 mai 2006 :

Code :

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

1
2
 
timelocal($seconde, $minute, $heure, $jour, $mois, $annee)

Si je lance ça me donne : Day '31 02:00:00' out of range 1..30 at 31mai.pl line 12

Or, ça ne fait que ça avec cette date-là. Le 31 juillet marche par contre...

Est-ce que c'est un bug de la fonction ??

Merci.

[Jedai]

Les mois commencent à 0 avec la fonction timelocal et localtime (héritage du C je crois). Donc probablement ce que tu crois être le 31 mai est le 31 juin (oups...) et ton 31 juillet est un 31 août (mais là pas de problème...).

--
Jedaï

[LFC]

Ok, en fait, ma fonction fait ça :

Code :

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

1
2
3
4
5
6
7
 
sub unix_to_TS {
(my $date, my $heure, my $minute, my $seconde) = @_;
(my $annee, my $mois, my $jour) = split("-",$date);
$mois--;
return (timelocal($seconde, $minute, $heure, $jour, $mois, $annee));
}

j'avais mis il fut un temps un $mois-- puisque je savais que ça commençait à compter à zéro mais je l'ai enlevé parce que sinon il me décalait vraiment toutes mes données d'1 mois... Je vais l'ajouter de nouveau pour voir.

Merci.

[Jedai]

Code :

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

1
2
 
perl -MTime::Local -e "print timelocal(0, 0, 2, 31, 4, 2006)"

Chez moi ça marche et :

Code :

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

perl -MTime::Local -e "print scalar( localtime (timelocal(0, 0, 2, 31, 4, 2006)))"

imprime :
Wed May 31 02:00:00 2006

Je dirais donc que c'est ta fonction qui a un problème (et que tu as besoin d'un "$mois--").

--
Jedaï

[LFC]

Exact, merci.