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 (from parent 1:
3d98f38
)
perl: html in feature descriptions
author
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 31 Jul 2014 10:59:19 +0000
(12:59 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 8 Aug 2014 12:39:23 +0000
(14:39 +0200)
perl.inc.pl
patch
|
blob
|
history
perl.plp
patch
|
blob
|
history
diff --git
a/perl.inc.pl
b/perl.inc.pl
index b499bf85880c8a61f380483374a7a69e4c54ec07..08961f69f04b3eacba81da3c4224eb316660522e 100644
(file)
--- a/
perl.inc.pl
+++ b/
perl.inc.pl
@@
-36,8
+36,8
@@
use utf8;
['//', 'defined-or operator'],
['~~', 'smart-match operator to compare different data types'],
['given', 'switch statement to smart-match with when/default'],
['//', 'defined-or operator'],
['~~', 'smart-match operator to compare different data types'],
['given', 'switch statement to smart-match with when/default'],
- ['/(?<name>)/', 'named capture buffers into
%+
'],
- ['s/keep\K//', 'floating positive lookbehind, efficient alternative for
s/(keep)/$1/
'],
+ ['/(?<name>)/', 'named capture buffers into
<code>%+</code>
'],
+ ['s/keep\K//', 'floating positive lookbehind, efficient alternative for
<code>s/(keep)/$1/</code>
'],
['/\v/, /\h/', 'vertical and horizontal whitespace escapes'],
['my $_', 'lexically scoped version of the default variable'],
],
['/\v/, /\h/', 'vertical and horizontal whitespace escapes'],
['my $_', 'lexically scoped version of the default variable'],
],
@@
-64,10
+64,10
@@
use utf8;
new => [
['s///r', 'non-destructive substitution'],
['/(?^)/', 'construct to reset to default modifiers'],
new => [
['s///r', 'non-destructive substitution'],
['/(?^)/', 'construct to reset to default modifiers'],
- ['/(?{ m// })/', 'regular expressions can be nested in
/(?{})/ and /(??{})/
'],
+ ['/(?{ m// })/', 'regular expressions can be nested in
<code>/(?{})/</code> and <code>/(??{})/</code>
'],
["use re '/flags'", 'customize default modifiers'],
['each $ref e.a.', 'array and hash container functions accept references'],
["use re '/flags'", 'customize default modifiers'],
['each $ref e.a.', 'array and hash container functions accept references'],
- ['FH->method', 'filehandle method calls load IO::File on demand (eg.
STDOUT->flush
)'],
+ ['FH->method', 'filehandle method calls load IO::File on demand (eg.
<code>STDOUT->flush</code>
)'],
],
release => '2011-05-14',
distro => {
],
release => '2011-05-14',
distro => {
@@
-91,8
+91,8
@@
use utf8;
v5.18 => {
new => [
v5.18 => {
new => [
- ['${^LAST_FH}', 'last read filehandle (used by
$.
)'],
- ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &)'],
+ ['${^LAST_FH}', 'last read filehandle (used by
<code>$.</code>
)'],
+ ['/(?[ a + b ])/', 'regex set operations (character substraction -, unions &
amp;
)'],
['my sub foo', 'lexical subroutines (also state, our)'],
['next $expression', 'loop controls allow runtime expressions'],
["no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'],
['my sub foo', 'lexical subroutines (also state, our)'],
['next $expression', 'loop controls allow runtime expressions'],
["no warnings 'experimental::…'", 'mechanism for experimental features, as of now required for smartmatch'],
@@
-108,8
+108,8
@@
use utf8;
new => [
['sub ($var)', 'subroutine signatures'],
['%hash{…}', 'hash slices return key+value pairs'],
new => [
['sub ($var)', 'subroutine signatures'],
['%hash{…}', 'hash slices return key+value pairs'],
- ['[]->@*', 'postfix dereferencing (also e.g.
$scalar->$* for $$scalar
)'],
- ['use warnings; $a', 'variables $a and $b are exempt from
used once
warnings'],
+ ['[]->@*', 'postfix dereferencing (also e.g.
<code>$scalar->$*</code> for <code>$$scalar</code>
)'],
+ ['use warnings; $a', 'variables $a and $b are exempt from
<em>used once</em>
warnings'],
],
unicode => '6.3',
release => '2014-05-27',
],
unicode => '6.3',
release => '2014-05-27',
diff --git
a/perl.plp
b/perl.plp
index eee43cf46de33fac28223d4dcf92ee4978f2c431..856ee4712d56a38d8425fd596e10dd322a6109b0 100644
(file)
--- a/
perl.plp
+++ b/
perl.plp
@@
-20,7
+20,7
@@
for my $vernum (reverse sort keys %{$info}) {
my $verrow = $info->{$vernum};
print '<div class="section">'."\n";
printf '<h2>%vd <small style="position:absolute; margin-left:1em">%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
my $verrow = $info->{$vernum};
print '<div class="section">'."\n";
printf '<h2>%vd <small style="position:absolute; margin-left:1em">%s</small></h2><dl>'."\n", $vernum, $verrow->{release};
- printf '<dt><code>%s</code><dd>%s', Entity(
@{$_})
, '<br/>' for @{ $verrow->{new} };
+ printf '<dt><code>%s</code><dd>%s', Entity(
$_->[0]), $_->[1]
, '<br/>' for @{ $verrow->{new} };
printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
print "</dl>\n";
print "</div>\n\n";
printf '<dt>Unicode</dt><dd>v%s', $_ for $verrow->{unicode} || ();
print "</dl>\n";
print "</div>\n\n";