<(common.inc.plp)><:
Html({
title => 'perl version cheat sheet',
version => '1.1',
keywords => [qw'
perl version feature features comparison
sheet cheat overview summary
'],
stylesheet => [qw'light dark red'],
data => ['perl.inc.pl'],
});
:>
Perl release summary
The most significant features introduced for recent versions of the Perl scripting language.
Depending on desired compatibility you'll want to support a minimum of
v5.8 or
v5.14.
<:
my $info = do 'perl.inc.pl' or die $@ // $!;
for my $vernum (reverse sort keys %{$info}) {
my $verrow = $info->{$vernum};
$verrow->{unstable} and next unless exists $get{v};
print ''."\n";
printf '
%vd %s
'."\n", $vernum, $verrow->{release};
for (@{ $verrow->{new} }) {
if (defined (my $experimental = $_->[2])) {
my $title = 'experimental';
my $class = ' class="ex"';
if (ref \$experimental eq 'VSTRING') {
my $dropped = $experimental =~ s/^\0//
and (exists $get{v} or next);
$title = sprintf('%s %vd',
$dropped ? 'removed in ' : "$title until",
$experimental,
);
$experimental = $_->[3]; # optional additional class
}
if ($experimental) {
$class .= sprintf ' title="%s"', $experimental;
}
$_->[1] .= qq{ ($title)};
}
printf '- %s
- %s'."\n", @{$_}, '
'
}
printf ' - Unicode
- v%s'."\n", $_ for $verrow->{unicode} || ();
print "
\n";
print "