2 use 5.010; use strict; use warnings;
6 if (m{<td class=hl>} .. m{</?td>}) {
7 $count{-url} = 'http://stats.wikimedia.org/archive/squid_reports/';
8 $count{-source} = 'Wikimedia';
9 $count{-date} = $1 if m{ period: (?:\d+ )?(\w+ \d+) };
13 # select relevant columns
14 />Browser versions(.*)/ ... m{</table>} && last or next;
15 my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
16 $mobile = $count2 =~ /(?<!non) mobile/ if $id ~~ ' ';
17 next if $id ~~ ['Total', ' '];
19 # convert to usable syntax
20 my ($browser, $version) = split /\h+/, $id, 2;
25 when (['Firefox', 'Iceweasel']) {
34 $browser = $mobile ? 'op_mob' : 'presto';
36 if (m{\(Mini(.*)\)$}) {
38 ($_) = $1 =~ m{^/(\d+)};
41 s/\d\d\.\d\K.*// or do {
42 # major part only, except for ≥v9.6
43 $_ ge '9.6' ? ($_ = '9.6') : (s/\..*//);
49 $browser = $mobile ? 'ios_saf' : 'webkit_saf';
50 my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
51 $numversion =~ s/6(?=\d{3})//; # incomparable 6532.22 → 523
53 # http://en.wikipedia.org/wiki/Safari_version_history
60 [ '531.022' => '4.1' ],
66 [ '525.013' => '3.1' ],
67 [ '525.026' => '3.2' ],
73 last if $numversion lt $_->[0];
78 $browser = 'webkit_chr';
79 s/\.\d+$// for $version;
84 s/\.0$// for $version;
87 $count{$browser}{$version} += $count;
98 curl http://stats.wikimedia.org/archive/squid_reports/2010-10/SquidReportClients.htm |
99 parsesquid.pl > browser-usage.inc.pl