git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
dd0fba6
)
browser: changed title identifiers in statcounter exports
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 4 Feb 2015 06:31:17 +0000
(07:31 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 5 Feb 2015 21:46:21 +0000
(22:46 +0100)
tools/mkusage-statcounter
patch
|
blob
|
history
diff --git
a/tools/mkusage-statcounter
b/tools/mkusage-statcounter
index 7d699d4b1a1e854d25f576491f79137669cad053..76fac3d7d3303fd4174ac42a39a30a4e7ad2f89b 100755
(executable)
--- a/
tools/mkusage-statcounter
+++ b/
tools/mkusage-statcounter
@@
-6,6
+6,8
@@
use warnings;
use Data::Dump 'pp';
use Text::CSV;
use Data::Dump 'pp';
use Text::CSV;
+our $VERSION = '1.00';
+
my %BROWSERID = qw(
IE ie
Firefox firefox
my %BROWSERID = qw(
IE ie
Firefox firefox
@@
-90,8
+92,10
@@
sub parsecsv {
my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
given ($browser) {
my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
given ($browser) {
- when (['Browser Version', 'Mobile Browser', 'Mobile vs. Desktop']) {
- $pct =~ s/^Market Share % // and $count{-date} = $pct;
+ when (['Browser', 'Browser Version', 'Mobile Browser', 'Mobile vs. Desktop', 'Comparison']) {
+ $pct =~ s/^Market Share (?:%|Perc\.) // or break;
+ $pct =~ s/\A\((.*)\)\z/$1/;
+ $count{-date} = $pct;
}
$browser =~ tr/ /-/;
$browser = $_ for $BROWSERID{$browser} // ();
}
$browser =~ tr/ /-/;
$browser = $_ for $BROWSERID{$browser} // ();