18 Mobile-Safari-UIWebView ios_saf
22 Chrome-Mobile-iOS android
28 Samsung-Internet samsung
33 -title => 'Wikimedia',
34 -site => 'https://analytics.wikimedia.org/',
37 my $recent = qr/^2019-/;
39 (readline =~ y/\t//) == 3 or die "unexpected amount of columns in header\n";
41 while (my $row = readline) {
43 my ($date, $name, $version, $pct) = split /\t/, $row;
44 $date =~ $recent or next;
46 my $browser = $BROWSERID{$name};
48 warn "unknown browser: $name v$version ($pct)\n"
49 unless defined $browser or $pct < .005;
52 $version =~ s/\A-\z/0/;
53 $count{$browser}{$version} += $pct;
54 $count{-total} += $pct;
55 $count{-date} = $date;
58 my $mult = 100 / delete $count{-total};
60 ref $_ eq 'HASH' or next;
61 $_ *= $mult for values %{$_};
70 ./mkusage-wikimedia wikipedia-analytics.tsv >browser-usage.inc.pl