use strict;
use Getopt::Std;
+use SCX::LogReader;
use SCX::LogPrinter;
my %opt;
my $logfile = shift @ARGV;
-open my $logfh, '<', $logfile
- or die "Can't open $logfile: $!";
+my $reader = SCX::LogReader->new({
+ filename => $logfile,
+});
my %args;
my $printer = SCX::LogPrinter->new(\%args);
-while (my $line = <$logfh>) {
- chomp $line;
- $line =~ s/\A\s+//xms;
- my ($l_time, @data) = split(/\s+/, $line);
-
- $printer->add_data($l_time, map { hex $_ } @data);
+while (my ($l_time, @data) = $reader->get_data()) {
+ $printer->add_data($l_time, @data);
}