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 (readline =~ y/\t//) == 3 or die "unexpected amount of columns in header\n";
40 my $recent; # minimum date to include
41 for (reverse @lines) {
43 $recent ne $date or next if $recent; # same day
44 $recent = $date; # override older date
45 last if state $i++ >= 2; # repeat twice
48 for my $row (@lines) {
50 my ($date, $name, $version, $pct) = split /\t/, $row;
51 $date ge $recent or next;
53 my $browser = $BROWSERID{$name};
55 warn "unknown browser: $name v$version ($pct)\n"
56 unless defined $browser or $pct < .005;
59 $version =~ s/\A-\z/0/;
60 $count{$browser}{$version} += $pct;
61 $count{-total} += $pct;
62 $count{-date} = $date;
65 my $mult = 100 / delete $count{-total};
67 ref $_ eq 'HASH' or next;
68 $_ *= $mult for values %{$_};
77 ./mkusage-wikimedia wikipedia-analytics.tsv >browser-usage.inc.pl