19 -source => 'StatCounter',
20 -site => 'http://gs.statcounter.com/',
27 statType_hidden => 'browser_version',
28 region_hidden => 'ww', # NL
29 granularity => 'monthly',
30 statType => 'Browser%20Version',
31 region => 'Worldwide', # Netherlands
32 fromMonthYear => $ARGV[0],
33 toMonthYear => $ARGV[1] // $ARGV[0],
36 my $url = $count{-site};
37 $url .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
40 my $download = LWP::Simple::get($url) or die "No data from $url\n";
42 open $input, '<', \$download or die $!;
45 my $csv = Text::CSV->new or die Text::CSV->error_diag;
46 while (my $row = $csv->getline($input)) {
47 my ($browser, $pct) = @$row;
48 $browser and $pct or next;
50 my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
52 when ('Browser Version') {
53 $pct =~ s/^Market Share % // and $count{-date} = $pct;
56 $browser = $_ for $BROWSERID{$browser} // ();
58 $count{$browser}->{$version} += $pct;
61 $csv->eof or $csv->error_diag;
69 cat <csv data> | F<convert-stats-gs> > browser-usage-gs.inc.pl
71 F<convert-stats-gs> <year-month>