Discussion :

[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].
Voici mon code:

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
 
#!/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:

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.

[Jasmine80]

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é

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

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

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

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

[Setsuna_00]

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

[Philou67430]

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