#!perl -n
use 5.010; use strict; use warnings;
our %count;
+our $mobile;
# select relevant columns
-/>Browser versions/ ... m{</table>} && last or next;
+/>Browser versions(.*)/ ... m{</table>} && last or next;
my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
+$mobile = $count2 =~ /(?<!non) mobile/ if $id ~~ ' ';
next if $id ~~ ['Total', ' '];
# convert to usable syntax
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
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 (
$browser = 'webkit_chr';
s/\.\d+$// for $version;
}
+ when ('Android') {
+ $browser = 'android';
+ }
s/\.0$// for $version;
}