2 use 5.010; use strict; use warnings;
5 # select relevant columns
6 />Browser versions/ ... m{</table>} && last or next;
7 my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
8 next if $id ~~ ['Total', ' '];
10 # convert to usable syntax
11 my ($browser, $version) = split /\h+/, $id, 2;
16 when (['Firefox', 'Iceweasel']) {
27 s/\d\d\.\d\K.*// or do {
28 # major part only, except for ≥v9.6
29 $_ ge '9.6' ? ($_ = '9.6') : (s/\..*//);
35 $browser = 'webkit_saf';
36 my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
37 $numversion =~ s/6(?=\d{3})//; # erroneous(?) 6532.22 → 523
39 # http://en.wikipedia.org/wiki/Safari_version_history
42 [ '525.013' => '3.1' ],
43 [ '525.026' => '3.2' ],
48 last if $numversion lt $_->[0];
53 $browser = 'webkit_chr';
54 s/\.\d+$// for $version;
56 s/\.0$// for $version;
59 $count{$browser}{$version} += $count;
70 curl http://stats.wikimedia.org/archive/squid_reports/2010-10/SquidReportClients.htm |
71 parsesquid.pl > browser-usage.inc.pl