Utilisation de DateTime pour comparer des heures.

Je voudrai me servir de DateTime afin de vérifier si l'heure actuelle est comprise entre 2 intervalle : [12h-13h30] et [18h-9h].
Voici mon code:

Code:

---

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

#!/usr/bin/perl -w use DateTime; $date_open_stream1 = DateTime->new( hour => 12, minute => 00 ); $date_open_stream2 = DateTime->new( hour => 13, minute => 30 ); $date_open_stream3 = DateTime->new( hour => 18, minute => 00 ); $date_open_stream4 = DateTime->new( hour => 9, minute => 00 ); $time = DateTime->now();   print "aa" if($date_open_stream1 < $date_open_stream2);

---

le résultat d'erreur:

Citation:

---

Name "main::date_open_stream3" used only once: possible typo at new.pl line 9.
Name "main::time" used only once: possible typo at new.pl line 15.
Name "main::date_open_stream4" used only once: possible typo at new.pl line 12.
Mandatory parameter 'year' missing in call to DateTime::new
at /usr/lib/perl5/site_perl/5.6.1/i386-linux/DateTime.pm line 171

---

Je ne comprend pas pourquoi je doit a tout prit spécifier une année car je ne compte pas prendre en compte la date du jour seulement comparer l'heure actuelle avec mes intervalle et la un simple test me renvoie une erreur.

Citation:

---

Envoyé par Setsuna_00

Je ne comprend pas pourquoi je doit a tout prit spécifier une année car je ne compte pas prendre en compte la date du jour seulement comparer l'heure actuelle avec mes intervalle et la un simple test me renvoie une erreur.

---

Sur le CPAN, au sujet du module DateTime, il est clairement expliqué

Citation:

---

Invalid parameter types (like an array reference) will cause the constructor to die.

All of the parameters are optional except for "year". The "month" and "day" parameters both default to 1, while the "hour", "minute", "second", and "nanosecond" parameters all default to 0.

---

Si tu ne définis pas la date, dans le message d'erreur, tu obtiens

Citation:

---

DateTime::new('undef', 'hour', 12, 'minute', 0)

---

Maintenant, si la date t'ennuie, tu peux simplement la remplacer par zéro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/bin/perl -w   use strict; use DateTime;     my $date_open_stream1 = DateTime->new( year => 0, hour => 12, minute => 00 ); my $date_open_stream2 = DateTime->new( year => 0, hour => 13, minute => 30 ); my $date_open_stream3 = DateTime->new( year => 0, hour => 18, minute => 00 ); my $date_open_stream4 = DateTime->new( year => 0, hour => 9, minute => 00 ); my $time = DateTime->now();   print "aa" if($date_open_stream1 < $date_open_stream2);

---

Merci bcps j'avais effectivement lu la docs sur CPAN mais étant de l'anglais je l'ai comprise de travers :P.

Citation:

---

Envoyé par Setsuna_00

Je voudrai me servir de DateTime afin de vérifier si l'heure actuelle est comprise entre 2 intervalle : [12h-13h30] et [18h-9h].

---

Concernant le deuxième intervalle, il me semble qu'il faudrait définir un jour également, afin que la borne inférieure (18h) soit sur le jour "n" et la borne supérieure (9h) soit sur le jour "n+1".