git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
browser: script to parse wikimedia statistics
[sheet.git]
/
browser.plp
diff --git
a/browser.plp
b/browser.plp
index 151daebb8f8821a858f7abed7839425c53573390..bbf2d6bb9288b0e98d0fb0af8cb1cc2c13830e95 100644
(file)
--- a/
browser.plp
+++ b/
browser.plp
@@
-129,7
+129,7
@@
for my $id (sort {
printf '<td class="%s" colspan="%d">%s',
$CSTATS{ $data->{$browser}->{$prev} },
scalar @span,
printf '<td class="%s" colspan="%d">%s',
$CSTATS{ $data->{$browser}->{$prev} },
scalar @span,
- join('‒', $span[0], @span > 1 ? $span[-1] : ());
+ showversions(\@span),
undef $prev;
@span = ();
}
undef $prev;
@span = ();
}
@@
-150,6
+150,16
@@
sub paddedver {
return sprintf('%02d', $1) . $2;
}
return sprintf('%02d', $1) . $2;
}
+sub showversions {
+ my ($span) = @_;
+ splice @$span, 1, -1;
+ for (@$span) {
+ s/^\./0./;
+ s/x$/.*/;
+ }
+ return join('‒', @$span);
+}
+
:>
<hr>
:>
<hr>