18 Mobile-Safari-UIWebView ios_saf
22 Chrome-Mobile-iOS android
31 -title => 'Wikimedia',
32 -site => 'https://analytics.wikimedia.org/',
35 my $recent = qr/^2017-/;
37 (readline =~ y/\t//) == 3 or die "unexpected amount of columns in header\n";
39 while (my $row = readline) {
40 my ($date, $name, $version, $pct) = split /\t/, $row;
41 $date =~ $recent or next;
43 my $browser = $BROWSERID{$name} or next;
44 $version =~ s/\A-\z/0/;
45 $count{$browser}{$version} += $pct;
46 $count{-total} += $pct;
47 $count{-date} = $date;
50 my $mult = 100 / delete $count{-total};
52 ref $_ eq 'HASH' or next;
53 $_ *= $mult for values %{$_};
62 ./mkusage-wikimedia wikipedia-analytics.tsv >browser-usage.inc.pl