3 package SCX::LogReader;
8 my ($class, $args) = @_;
10 open my $fh, '<', $args->{filename}
11 or die "Can't open $args->{filename}: $!";
14 begin_time => $args->{begin_time} || 0,
15 end_time => $args->{end_time} || (1<<32),
29 my ($line, $l_time, @data);
33 print STDERR "End of the log file reached.\n";
38 $line =~ s/\A\s+//xms;
40 ($l_time, @data) = split(/\s+/, $line);
41 } while ($l_time < $self->{begin_time});
43 if ($l_time > $self->{end_time}) {
44 print STDERR "Requested end time reached.\n";
48 return ($l_time, map { hex $_ } @data);