23 Chrome-for-Android and_chr
30 -title => 'StatCounter',
31 -site => 'http://gs.statcounter.com/',
37 region_hidden => 'ww', # Worldwide
38 device_hidden => 'desktop%2Bmobile%2Btablet%2Bconsole',
39 'multi-device' => 'true',
40 granularity => 'monthly',
41 fromMonthYear => $ARGV[0],
42 toMonthYear => $ARGV[1] // $ARGV[0],
45 my $site = $count{-site};
46 $site .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
47 $site .= '&statType_hidden=';
48 $count{-source} = $site;
52 my $url = $site.'browser_version';
53 my $download = LWP::Simple::get($url) or die "No data from $url\n";
54 open my $input, '<', \$download or die $!;
64 my $csv = Text::CSV->new or die Text::CSV->error_diag;
65 while (my $row = $csv->getline($input)) {
66 my ($browser, $pct) = @$row;
67 $browser and $pct or next;
69 my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
71 when ('Browser Version') {
72 $pct =~ s/^Market Share (?:%|Perc\.) // or break;
73 $pct =~ s/\A\((.*)\)\z/$1/;
77 $browser = $_ for $BROWSERID{$browser} // ();
80 # desktop variant has version, mobile doesn't
81 if ($version eq '0') {
82 $browser = 'op_mini' if $browser eq 'opera';
83 $browser = 'and_ff' if $browser eq 'firefox';
86 $count{$browser}->{$version} += $pct;
89 $csv->eof or $csv->error_diag;
98 cat <csv data> | F<mkusage-statcounter> > browser-usage-gs.inc.pl
100 F<mkusage-statcounter> <year-month>