git.shiar.nl
/
perl
/
schtarr.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f42c46c
)
strip path name to pvpgn report file for name
author
Shiar
<shiar@shiar.org>
Mon, 31 Dec 2007 16:18:35 +0000
(16:18 +0000)
committer
Shiar
<shiar@shiar.org>
Mon, 31 Dec 2007 16:18:35 +0000
(16:18 +0000)
pvpgnreport
patch
|
blob
|
history
diff --git
a/pvpgnreport
b/pvpgnreport
index 6d601f6688098dc752d457e89b5d39ecb27df12f..b98fce6019fa93a13412eb98ce8dd267626bba34 100755
(executable)
--- a/
pvpgnreport
+++ b/
pvpgnreport
@@
-62,8
+62,9
@@
sub reportplayers {
return \@player;
}
-my $name = $ARGV[0] or die "Usage: $0 FILE\n";
-open my $reportfile, '<', "$name.txt" or die "No report file: $!\n";
+my $path = $ARGV[0] or die "Usage: $0 FILE\n";
+my ($name) = $path =~ m{([^/]+)$};
+open my $reportfile, '<', "$path.txt" or die "No report file: $!\n";
my $report = reporthead($reportfile);
print Dumper $report if $DBG;