while(<>) {
s/[\n\r]+$//;
+
+ my $time = $1 if /(\d+:\d+:\d+)/;
+ $time .= ' | ';
+
if ( /IRP_MJ_WRITE.*:\s*(.*)/ ) {
- print "> $1\n";
+ print ">> $time $1\n";
} elsif ( /(IRP_MJ_READ|IOCTL_SERIAL_WAIT_ON_MASK)/ ) {
$in_read++;
print "#[$in_read] $_\n";
my $len = hex($1) if ( $read =~ m/^([0-9a-f]{2})/i );
print "#< $read [$len]\n";
if ( length($read) >= ( $len * 3 - 1 ) ) {
- print "< $read\n";
+ print "<< $time $read\n";
$in_read = 0;
$read = '';
}