<: my $caniuse = do 'browser-support.inc.pl' or die $! || $@; my %CSTATS = ( 'n' => 'l0', 'y' => 'l6', 'y x' => 'l5', 'a' => 'l4', 'a x' => 'l4', 'p j' => 'l2', 'j' => 'l2', 'p' => 'l2', 'u' => 'l9', ); my %CSTATUS = ( unoff => 'l0', # unofficial wd => 'l4', # draft cr => 'l5', # candidate pr => 'l5', # proposed rec => 'l6', # recommendation ietf => 'l6', # standard ); my %versions; if (my ($somerow) = values %{ $caniuse->{data} }) { while (my ($browser, $row) = each %{ $somerow->{stats} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } my @browsers = grep { $versions{$_} } qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); my $canihas = do 'browser-usage.inc.pl' || do { printf "

Browser usage data not found: %s.

\n", $_ for $! || $@; +{ map { $_ => +{ map { ($_->[4] => 0 ), # future ($_->[3] => .5), # next ($_->[0] => 5 ), # past ($_->[1] => 10 ), # previous ($_->[2] => 30 ), # current } $caniuse->{agents}->{$_}->{versions} } } @browsers }; # fallback hash based on release semantics }; my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100; print ''; print '' x 3; printf '', scalar @{ $versions{$_} } for @browsers; print "\n"; my $header = join('', '', '', $header; # preceding row without any colspan to work around gecko bug print "\n"; print '\n"; sub featurescore { # relative amount of support for given feature state $statspts = { y=>10, 'y x'=>9, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; while (my ($version, $_) = each %$versions) { $rank += $canihas->{$browser}->{$version} * $statspts->{$_}; } } return $rank; } while (my ($browser, $vercols) = each %versions) { my $div = 0; # multiplier exponent (decreased to lower value) my @vers = map { $row->{$browser}->{$_} } @$vercols; if (my $current = $caniuse->{agents}->{$browser}->{versions}->[-3]) { my @future; # find upcoming releases (after current) for (reverse @$vercols) { last if $_ eq $current; push @future, pop @vers; $_ eq 'u' and $_ = $vers[-1] for $future[-1]; # inherit latest value if unknown } splice @vers, -1, 0, @future; # move ahead to decrease precedence } $rank += $statspts->{$_} * 2**($div--) for reverse @vers; } } return $rank; } for my $id (sort { featurescore($caniuse->{data}->{$b}->{stats}) <=> featurescore($caniuse->{data}->{$a}->{stats}) } keys %{ $caniuse->{data} }) { my $row = $caniuse->{data}->{$id}; my $data = $row->{stats} or next; # skip metadata [summary] printf '', $id; for ($row->{categories}) { my $cell = $_ ? lc $_->[0] : '-'; print '', $header; print '

feature', (map { sprintf('			%s', scalar @{ $versions{$_} }, sum(values %{ $canihas->{$_} }), do { my $name = $caniuse->{agents}->{$_}->{browser}; length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr}; }, ) } @browsers), '	%', ); print '
' x 3; for my $browser (@browsers) { printf('	%s', $canihas->{$browser}->{$_}, showversions($_), ) for @{ $versions{$browser} }; } print '	' x 1; print "
', $cell; } print '	', map { sprintf('%s', "#$id", sprintf("try { %s; return false } catch(err) { return true }", "document.getElementById('$id').classList.toggle('target')", ), $_, ); } $row->{title}; print ' '; s/\.?$/./, print " $_ " for map { ref $_ ? @$_ : $_ \|\| () } $row->{description}, $row->{notes}; printf 'Resources: %s.', join(', ', map { qq($_->{title}) } @$_ ) for grep { @$_ } $row->{links} // (); print ' '; for ($row->{status}) { my $cell = $_ // '-'; $cell = sprintf '%s', $_, $cell for $row->{spec} // (); printf '	%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } for my $browser (@browsers) { my ($prev, @span); for my $ver (@{ $versions{$browser} }, undef) { unless (!defined $prev or ref $data->{$browser} eq 'HASH' && $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) { my $usage = sum(map { $canihas->{$browser}->{$_} } @span); printf '	%s', join(' ', X => $CSTATS{ ref $data->{$browser} ne 'HASH' ? 'u' : $data->{$browser}->{$prev} // 'u' }, !$usage ? ('p0') : ('p', sprintf('p%01d', $usage / 10), sprintf('p%02d', $usage), ), sprintf('pp%02d', $usage / $scorediv), ), scalar @span, $usage, showversions(@span), undef $prev; @span = (); } push @span, $ver; $prev = $ver; } } state $maxscore = featurescore({ # yes for every possible version map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions }); print '	', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; } print '

'; sub paddedver { # normalised version number comparable as string (cmp) shift =~ /^(\d*)(.*)/; return sprintf('%02d', $1 || 0) . $2; } sub showversions { my @span = ($_[0], @_>1 ? $_[-1] : ()); for (@span) { s/^\./0./; s/x$/.*/; } return join('‒', @span); } :>

Browser compatibility