git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7c83626
)
browser: convert mobile browsers in wikimedia stats
author
Mischa POSLAWSKY
<perl@shiar.org>
Sun, 5 Dec 2010 17:13:19 +0000
(18:13 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 6 Dec 2010 00:04:46 +0000
(
01:04
+0100)
tools/convert-stats-wikimedia.pl
patch
|
blob
|
history
diff --git
a/tools/convert-stats-wikimedia.pl
b/tools/convert-stats-wikimedia.pl
index d65e5eba85921a6537a1c71db41205a100dcdfab..8cbb4169b18d4c9a002e4b297fbbb164c2332dfc 100644
(file)
--- a/
tools/convert-stats-wikimedia.pl
+++ b/
tools/convert-stats-wikimedia.pl
@@
-1,10
+1,12
@@
#!perl -n
use 5.010; use strict; use warnings;
our %count;
#!perl -n
use 5.010; use strict; use warnings;
our %count;
+our $mobile;
# select relevant columns
# select relevant columns
-/>Browser versions/ ... m{</table>} && last or next;
+/>Browser versions
(.*)
/ ... m{</table>} && last or next;
my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
+$mobile = $count2 =~ /(?<!non) mobile/ if $id ~~ ' ';
next if $id ~~ ['Total', ' '];
# convert to usable syntax
next if $id ~~ ['Total', ' '];
# convert to usable syntax
@@
-22,7
+24,7
@@
given ($browser) {
continue;
}
when ('Opera') {
continue;
}
when ('Opera') {
- $browser = 'presto';
+ $browser =
$mobile ? 'op_mob' :
'presto';
for ($version) {
s/\d\d\.\d\K.*// or do {
# major part only, except for ≥v9.6
for ($version) {
s/\d\d\.\d\K.*// or do {
# major part only, except for ≥v9.6
@@
-32,7
+34,7
@@
given ($browser) {
continue;
}
when ('Safari') {
continue;
}
when ('Safari') {
- $browser = 'webkit_saf';
+ $browser =
$mobile ? 'ios_saf' :
'webkit_saf';
my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
$numversion =~ s/6(?=\d{3})//; # erroneous(?) 6532.22 → 523
for (
my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
$numversion =~ s/6(?=\d{3})//; # erroneous(?) 6532.22 → 523
for (
@@
-53,6
+55,9
@@
given ($browser) {
$browser = 'webkit_chr';
s/\.\d+$// for $version;
}
$browser = 'webkit_chr';
s/\.\d+$// for $version;
}
+ when ('Android') {
+ $browser = 'android';
+ }
s/\.0$// for $version;
}
s/\.0$// for $version;
}