44 |
|
|
45 |
#$t=time();$u=$i->uptime($t);print STDERR " uptime ( $t $u ) ",scalar localtime $t,": ",fmt_interval($u)," ($u)\n"; |
#$t=time();$u=$i->uptime($t);print STDERR " uptime ( $t $u ) ",scalar localtime $t,": ",fmt_interval($u)," ($u)\n"; |
46 |
|
|
47 |
|
|
48 |
|
$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"; |
51 |
|
print STDERR "\n",$i->interval(200100000,200500001),"\n\n"; |
52 |
|
print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n"; |
53 |
|
print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n"; |
54 |
|
|