SUMMARY --> [Dub-pm] Time::Piece && while loops

[Andrew Barnes]

Hi,

Thanks to everyone who replied!

In the end, I went with Time::Piece/Time::Seconds - was quite easy from
there.  At the end of my while loop, I run something along the lines of:

my $newDate = localtime;    #-# Get new current time/date

if ( $newDate->ymd > $currentDate->ymd ) {
    &handleHUP;             #-# Rotate the log
    our $currentDate = $newDate;
}

Thanks to my new-found knowledge of signals - I already had the code
written to rotate off the log file :-)

The real test will be when I try and change the date - but apart from that
- seems to be going well

Again - thanks!
  Andrew

-- 
Andrew Barnes
Computer Systems Consultant

Mobile: 087 3803633            | Intl Mobile: +353 87 3803633
Email:  andrew at mosina.com.au
Web:    http://www.andrew.mosina.com.au
PGP Fingerprint: 2C8E E948 C62D 8C2C 48E3  0925 6ED3 78AA 5B17 6E26