browser: changed title identifiers in statcounter exports

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;
 
+our $VERSION = '1.00';
+
 my %BROWSERID = qw(
        IE          ie
        Firefox     firefox
@@ -90,8 +92,10 @@ sub parsecsv {
 
                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} // ();