use Text::CSV;
my %BROWSERID = qw(
- IE trident
- Firefox gecko
- Safari webkit_saf
+ IE ie
+ Firefox firefox
+ Safari safari
Safari-iPad ios_saf
- Chrome webkit_chr
- Opera presto
+ Chrome chrome
+ Opera opera
Android android
iPhone ios_saf
ref $_ eq 'HASH' or next;
$_ *= $mult{Desktop} / $mult{Mobile} for values %$_;
}
- $count{Opera} = delete $count{presto}; # preserve
+ $count{Opera} = delete $count{opera}; # preserve
$url = $site.'mobile_browser';
$download = LWP::Simple::get($url) or warn "No data from $url\n";
ref $_ eq 'HASH' or next;
$_ *= $mult{Mobile} for values %$_;
}
- $count{op_mini} = delete $count{presto}; # mobile distinction
- $count{presto} = delete $count{Opera}; # restore desktop
+ $count{op_mini} = delete $count{opera}; # mobile distinction
+ $count{opera} = delete $count{Opera}; # restore desktop
}
}
else {