Ticket #10793: showoutput.pl
File showoutput.pl, 311 bytes (added by , 12 years ago) |
---|
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | |
5 | my $framenum; |
6 | my $frame; |
7 | my $marktype; |
8 | my $mark; |
9 | |
10 | while (<>) |
11 | { |
12 | ($framenum, $frame, $marktype, $mark) = /(framenum:)\s+(\d+)\s+(marktype:)\s+(\d+)/ and do { |
13 | $frame /= 25; |
14 | printf("$framenum %3d:%02d $marktype $mark\n", $frame / 60, ($frame % 60)); |
15 | next; |
16 | }; |
17 | print "$_"; |
18 | } |