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

[Lee Hosty]

Andrew Barnes wrote:
> 
> What I want this script to do is keep writing out the connection info into
> this same file *until* the day changes - ala "automated log rotation" ;>
> 
> SOooo... when talking to Doc on IRC last night we discussed using a while

is there Dub.pm IRC channel?

> loop to do this.  My catch is trying to work out the "best way"
> (programatically, as well as "resource-wise") to do this - ie. check the
> day, and while $date != $date + 1, write into the log file - otherwise,
> update $date, $logfile, and write into the new file

I'm presuming you already have some sort of loop going for your log data 
(and this is obviously rather simplistic):

my ($date, $time) = &get_date_and_time_as_array;
open (LOG, ">>$date.$time.txt");

while ($data) {
	my ($newdate, $newtime) = &get_date_and_time_as_array;
	# get log data
	if ($newdate > $date) { close LOG; open (LOG, ">>$date.$time.txt"); }
	print LOG $data;
}

close LOG;

How expensive is calling get_date_and_time_as_array / getting current 
date? Depends on the amount / speed of data being logged.

--

Please excuse glaring errors; /me contains beer