Ticket #10793: showoutput.pl

File showoutput.pl, 311 bytes (added by Mark Spieth, 7 years ago)

convert output.txt to min:sec format

Line 
1#!/usr/bin/perl
2
3use strict;
4
5my $framenum;
6my $frame;
7my $marktype;
8my $mark;
9
10while (<>)
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}