47 |
|
|
48 |
$i = Time::Available->new( start=>'07:00', end=>'17:00', dayMask=>DAY_WEEKDAY, DEBUG=>1); |
$i = Time::Available->new( start=>'07:00', end=>'17:00', dayMask=>DAY_WEEKDAY, DEBUG=>1); |
49 |
|
|
50 |
#print STDERR "\n",$i->interval(100000,500001),"\n\n"; |
print STDERR "\n",$i->interval(100000,500001),"\n\n"; |
51 |
#print STDERR "\n",$i->interval(200100000,200500001),"\n\n"; |
print STDERR "\n",$i->interval(200100000,200500001),"\n\n"; |
52 |
#print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n"; |
print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n"; |
53 |
#print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n"; |
print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n"; |
|
#print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n"; |
|
54 |
print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n"; |
print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n"; |
55 |
|
print STDERR "\n",$i->interval(1061768345,1061773119),"\n\n"; |
56 |
|
print STDERR "\n",$i->interval(1061507423,1061541821),"\n\n"; |
57 |
|
print STDERR "\n",$i->interval(1051482879,1051491233),"\n\n"; |