-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);