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 = ();
}
return sprintf('%02d', $1) . $2;
}
+sub showversions {
+ my ($span) = @_;
+ splice @$span, 1, -1;
+ for (@$span) {
+ s/^\./0./;
+ s/x$/.*/;
+ }
+ return join('‒', @$span);
+}
+
:>
<hr>