git.shiar.nl
/
perl
/
schtarr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Games::StarCraft::DB class for schtarr database
[perl/schtarr.git]
/
screp
diff --git
a/screp
b/screp
index dbd264c22916e8e239f22cf86b6fe462bfc053cf..4b896b58c8b20e98e030c11c0763adde85d45b43 100755
(executable)
--- a/
screp
+++ b/
screp
@@
-3,10
+3,12
@@
use strict;
use warnings;
use Data::Dumper;
use warnings;
use Data::Dumper;
+our $VERSION = '1.00';
+
my $SHOWWARN = 0;
my $APMSVG = undef;
my $SHOWWARN = 0;
my $APMSVG = undef;
-use Getopt::Long;
+use Getopt::Long
qw(:config bundling auto_version auto_help)
;
GetOptions(
"verbose|v!" => \$SHOWWARN,
"apm|a=s" => \$APMSVG,
GetOptions(
"verbose|v!" => \$SHOWWARN,
"apm|a=s" => \$APMSVG,
@@
-522,7
+524,8
@@
for my $player (sort keys %stats) {
$row->{last} ||= $map->[-1][0];
# printf("%-16s%6d actions (%3d micro,%4d macro);%4d APM\n",
my $name = showplayer($player);
$row->{last} ||= $map->[-1][0];
# printf("%-16s%6d actions (%3d micro,%4d macro);%4d APM\n",
my $name = showplayer($player);
- printf("%-16s%6d actions in%7d frames (%s) = %d APM\n",
+ printf("%d %-16s%6d actions in%7d frames (%s) = %d APM\n",
+ $row->{slot},
$name, $row->{actions}, $row->{last},
showtime($row->{last}),
# $row->{micro} / $row->{last} * 60 / .042 * 1.05,
$name, $row->{actions}, $row->{last},
showtime($row->{last}),
# $row->{micro} / $row->{last} * 60 / .042 * 1.05,
@@
-615,3
+618,25
@@
if ($APMSVG) {
print $apmfile $svg;
}
print $apmfile $svg;
}
+__END__
+
+=head1 NAME
+
+screp - StarCraft replay parser
+
+=head1 SYNOPSIS
+
+screp [options] < [replay data]
+
+ Options:
+ --verbose
+ --apm
+
+=head1 OPTIONS
+
+=head1 AUTHOR
+
+Mischa POSLAWSKY <perl@shiar.org>
+
+=head1 STUFF
+