1#!perl -w 2 3use strict; 4use RecReader; 5 6my $game = shift; 7my $reader = new RecReader("$game", \&processEvent); 8print $reader->raw_summary if defined $reader; 9 10sub processEvent { 11 my $frame = shift; 12 my $event = shift; 13 my $params = shift; 14 printf "%08x $event ", $frame; 15 print join " ", %$params; 16 print "\n"; 17} 18