+sub log_print {
+ my ($self, @data) = @_;
+
+ my $size = $self->{logfh}->tell;
+
+ if ($size >= $LOG_FILE_LIMIT) {
+ close $self->{logfh};
+ $self->{log_gen} = $self->{log_gen} ? 0 : 1;
+ open my $fh, '>', $self->{logfile} . '.' . $self->{log_gen}
+ or die "Can't open $self->{logfile}.$self->{log_gen}: $!";
+ $self->{logfh} = $fh;
+ }
+
+ $self->{logfh}->print(sprintf('% 10.3f ', $self->{last_read_time}),
+ join(' ', @data, "\n"));
+ $self->{logfh}->flush;
+}
+