![my
$nulling_symbol
=
$rhs_symbol‐>[Parse::Marpa::Internal::Symbol::NULL_ALIAS]
//
$rhs_symbol;
$action
//=
$default_action;
say
{$trace_fh}
'Problems
compiling
action
for
original
rule:
',
Parse::Marpa::brief_original_rule($rule);
my
$clone
=
$clone_arg
//
1;
my
$current_parse_set
=
$parse_set_arg
//
$default_parse_set;
$choice
//=
0;
$lines
//=
[0];
$source_options
//=
{};
Parse::Marpa::Internal::Evaluator
— 14 Dec 2008
Generate Parsers from any BNF grammar](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-40-320.jpg)
![return
$self‐>_get_infection(
$disease‐>id
)
//
0;
my
$val
=
$self‐>_get($key)
//
$default‐>{$key};
return
@{
$self‐>_players
//
[]
};
Games::Pandemic::City,
Games::Pandemic::Config
— 07 Sep 2009
Games::Risk
— 18 Oct 2008](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-43-320.jpg)
![my
$captures
=
$arg
{captures}
//
[];
my
$comment
=
escape
$arg
{comment}
//
$name
//
"";
my
$upgrade
=
$arg
{utf8_upgrade}
//
1;
my
$downgrade
=
$arg
{utf8_downgrade}
//
1;
my
$match
=
$arg
{match}
//
1;
Games::Wumpus
— 24 Nov 2009
Play Hunt the Wumpus](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-52-320.jpg)
![while
(my
($key,
$value)
=
each
%arg)
{
given
($key)
{
when
("tests")
{
$Test
‐>
plan
($value);
}
when
("import")
{
$self
‐>
export_to_level
(1,
$self,
$_)
for
@{$value
||
[]};
}
default
{
die
"Unknown
option
'$key'n";
}
}
}
Test::Regexp
— 09 Dec 2009
Test your regular expressions](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-54-320.jpg)
![given
($action)
{
when
(undef)
{;}
#
do
nothing
#
Right
now
do
nothing
#
but
find
lex_q_quote
when
('lex_q_quote')
{
$lexers[$ix]
=
[
&Parse::Marpa::Lex::lex_q_quote,
$prefix,
$suffix
];
}
Parse::Marpa::Recognizer](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-68-320.jpg)
![given($name)
{
when
('stream:stream')
.
.
.
when
('challenge')
.
.
.
when
('failure')
.
.
.
when
('stream:features')
.
.
.
given(my
$clist
=
$node‐>getChildrenHash())
{
when
('starttls')
.
.
.
when('mechanisms')
.
.
.
foreach($clist‐>{'mechanisms'}‐>
[0]‐>getChildrenByTagName('*'))
when($_‐>textContent()
eq
'DIGEST‐MD5'
or
$_‐>textContent()
eq
'PLAIN')
when('bind')
.
.
.
default
.
.
.
when
('proceed')
.
.
.
when
('success')
.
.
.
POE::Component::Jabber
— 22 Mar 2009
A POE Component for communicating over Jabber](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-70-320.jpg)
![given($name)
{
when
('stream:stream')
.
.
.
when
('challenge')
.
.
.
when
('failure')
.
.
.
when
('stream:features')
.
.
.
given(my
$clist
=
$node‐>getChildrenHash())
{
when
('starttls')
.
.
.
when('mechanisms')
.
.
.
foreach($clist‐>{'mechanisms'}‐>
[0]‐>getChildrenByTagName('*'))
when($_‐>textContent()
eq
'DIGEST‐MD5'
or
$_‐>textContent()
eq
'PLAIN')
when('bind')
.
.
.
default
.
.
.
when
('proceed')
.
.
.
when
('success')
.
.
.
POE::Component::Jabber
— 22 Mar 2009
A POE Component for communicating over Jabber](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-71-320.jpg)
![use
Switch;
switch($stream‐>codec_type){
case
"video"
{
bless
$stream,
'Video::FFmpeg::AVStream::Video';
push
@streams,
$stream;
}
case
"audio"
{
bless
$stream,
'Video::FFmpeg::AVStream::Audio';
push
@streams,
$stream;
}
case
"subtitle"
{
bless
$stream,
'Video::FFmpeg::AVStream::Subtitle';
push
@streams,
$stream;
}
else
{
push
@streams,
$stream;
}
}
use
if
$]
>=
5.011,
'deprecate';
Video::FFmpeg::AVFormat](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-88-320.jpg)
![given
(
$params[0]
//
''
)
{
when
(blessed
$_
&&
$_‐>isa('Math::BigInt'))
{
$bit
=
$class‐>string2bit(shift(@params)‐>as_bin());
}
when
(m/^d+$/)
{
$bit
=
$class‐>int2bit(shift(@params));
}
when
(m/^0[bB][01]+$/)
{
$bit
=
$class‐>string2bit(shift(@params));
}
when
(m/^[$ZERO$ONE]+$/)
{
$bit
=
$class‐>bit2bit(shift(@params));
}
Bitmask::Data
— 03 Oct 2008
Handle unlimited length bitmasks in an easy and flexible way](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-92-320.jpg)
![use
everywhere
q(feature
':5.10');
use
MyModule;
MyModule‐>my_sub($$);
package
MyModule;
sub
my_sub
{
say
$_[1];
}
1;](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-108-320.jpg)
![use
v5.10;
my
@array
=
(1..20);
my
$count
=
0;
for(@array)
{
when(/[02468]$/)
{
$count++;
}
say;
}
say
$count;](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-128-320.jpg)
![use
v5.10;
my
@array
=
(1..20);
my
$count
=
0;
for(@array)
{
when(/[02468]$/)
{
$count++;
}
say;
}
say
$count;
#
10](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-129-320.jpg)
![use
v5.10;
my
@array
=
(1..20);
my
$count
=
0;
for(@array)
{
when(/[02468]$/)
{
$count++;
}
say;
}
say
$count;
#
10](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-130-320.jpg)
![1
use
v5.10;
3
my
@array
=
(1..20);
my
$count
=
0; 5
for(@array)
{ 7
when(/[02468]$/)
{ 9
$count++; 11
} 13
say; 15
} 17
say
$count;
#
10 19](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-131-320.jpg)
![use
v5.10;
my
@array
=
(1..20);
my
$count
=
0;
for(@array)
{
when(/[02468]$/)
{
$count++;
continue;
}
say;
}
say
$count;
#
10](https://image.slidesharecdn.com/perl510in2010-100305064317-phpapp02/85/Perl-5-10-in-2010-132-320.jpg)
Perl 5.10 in 2010
- 1. Perl 5.10 in 2010
- 2. Part I The History and some Statistics
- 4. Today is 5 March 2010
- 9. 5.11.0, 5.11.1, 5.11.2, 5.11.3, 5.11.4 exist already
- 10. 5.12 soon
- 11. Dutch Perl Workshop 2010 Andrew Shitov Perl 5.10 in 2010 Leon Timmermans What's new in Perl 5.12? Martin Berends Perl 6 implementations in March 2010 Jonathan Worthington Solved in Perl 6
- 12. Total on CPAN ~80 000 modules
- 13. Total on CPAN ~20 000 distributions
- 14. Total on CPAN ~8000 authors
- 15. Are Perl 5.10 features used frequently?
- 16. ?
- 17. ~ 200 modules
- 18. ~ 100 authors
- 19. Part II Perl 5.10 Features
- 20. say say $x == print "$xn"
- 24. regexes (?<name>) %+ K %‐ R g<name>
- 27. How to enable
- 29. 5.10.0 v5.10.0 v5.10 vector string version string abbreviated — v-string
- 30. 5.10.0 v5.10.0 v5.10 vector string version string abbreviated — v-string
- 33. given ($action) { when (/^include_cmd:/) { my $cmd = $child‐>content; $cmd =~ /^include_cmd:(s*)/; my $ws = $1 || ''; $cmd =~ s/^include_cmd:s*//; #say("cmd:$ws$cmd"); $cmd = cwd() . '/' . $cmd; @output = qx($cmd); $child‐>content($ws . join($ws, @output)); } Pod::Elemental::Transformer::Include — 08 Jan 2010 include output via files and commands
- 34. // and //= for default values
- 35. $port //= 5432; $host //= 'localhost'; $col //= ''; Pg::Loader — 07 Jul 2008 Perl extension for loading Postgres tables
- 36. $attrz{ maxjob } //= 1; $value //= 1; $attrz{ $_ } //= 0; $attrz{ verbose } //= ''; $attrz{ debug } //= ''; $val //= 1; $exit //= 0; $skipz‐>{ $job_id } //= 'Skip on SIGHUP' Parallel::Depend — 12 Aug 2009 Parallel-dependent dispatch of perl or shell code
- 37. sub import { shift; my %args = @_; # we do not care about autoviv $^H{fixedtime} = $args{epoch_offset} // CORE::time; } fixedtime — 14 Aug 2008 lexical pragma to fix the epoch offset for time related functions
- 38. say $answer // "I don't know enough to answer you yet."; Hailo — 29 Jan 2010 A pluggable Markov engine analogous to MegaHAL
- 39. my $marpa_version = $Parse::Marpa::VERSION // 'undef'; my $source_version = $Parse::Marpa::Source::VERSION // 'undef'; $options //= {}; Parse::Marpa — 14 Dec 2008 Generate Parsers from any BNF grammar
- 40. my $nulling_symbol = $rhs_symbol‐>[Parse::Marpa::Internal::Symbol::NULL_ALIAS] // $rhs_symbol; $action //= $default_action; say {$trace_fh} 'Problems compiling action for original rule: ', Parse::Marpa::brief_original_rule($rule); my $clone = $clone_arg // 1; my $current_parse_set = $parse_set_arg // $default_parse_set; $choice //= 0; $lines //= [0]; $source_options //= {}; Parse::Marpa::Internal::Evaluator — 14 Dec 2008 Generate Parsers from any BNF grammar
- 41. my $trace_fh = $arg_trace_fh // (*STDERR); my $trace_fh = shift; $trace_fh //= *STDERR; Parse::Marpa::Recognizer — 14 Dec 2008 Generate Parsers from any BNF grammar
- 42. // inside return
- 43. return $self‐>_get_infection( $disease‐>id ) // 0; my $val = $self‐>_get($key) // $default‐>{$key}; return @{ $self‐>_players // [] }; Games::Pandemic::City, Games::Pandemic::Config — 07 Sep 2009 Games::Risk — 18 Oct 2008
- 44. sub homedir { my ($self) = @_; require File::HomeDir; return File::HomeDir‐>my_home // croak 'File::HomeDir says you have no home directory'; } App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 45. sub config_filename { my ($self) = @_; return $self‐>{'config_filename'} // do { require File::Spec; File::Spec‐>catfile ($self‐>homedir, '.rss2leafnode.conf'); }; } App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 46. return isodate_to_rfc822($date // $self‐>{'now822'}); return URI::Title::title ({ url => ($resp‐>request‐>uri // ''), data => $resp‐>decoded_content (charset => 'none')}); App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 47. return inside //
- 48. my $b_time = $self‐>item_to_timet($b_item) // return $a_item; my $a_time = $self‐>item_to_timet($a_item) // return $b_item;; my $str = $self‐>item_to_date($item) // return; App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 50. sub item_to_language { my ($self, $item) = @_; my $content; my $ret = (elt_to_language($item) // elt_to_language($item‐>first_child('content'))); for (;;) { $item = $item‐>parent // last; $ret //= elt_to_language($item); } $ret //= $self‐>{'resp'}‐>content_language; return $ret; } App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 51. Chained //
- 52. my $captures = $arg {captures} // []; my $comment = escape $arg {comment} // $name // ""; my $upgrade = $arg {utf8_upgrade} // 1; my $downgrade = $arg {utf8_downgrade} // 1; my $match = $arg {match} // 1; Games::Wumpus — 24 Nov 2009 Play Hunt the Wumpus
- 53. when with a scalar
- 54. while (my ($key, $value) = each %arg) { given ($key) { when ("tests") { $Test ‐> plan ($value); } when ("import") { $self ‐> export_to_level (1, $self, $_) for @{$value || []}; } default { die "Unknown option '$key'n"; } } } Test::Regexp — 09 Dec 2009 Test your regular expressions
- 55. foreach (@hazards) { when ($WUMPUS) { $self ‐> lose; push @messages => "Oops! Bumped into a Wumpus!"; } when ($PIT) { $self ‐> lose; push @messages => "YYYIIIIEEEE! Fell in a pit!"; } when ($BAT) { push @messages => "ZAP! Super bat snatch! Elsewhereville for you!"; } } Games::Wumpus — 24 Nov 2009 Play Hunt the Wumpus
- 57. given ($k) { when ('file') { $opt_file = $v; } when ('argv') { $opt_argv = $v; } when ('inter') { $opt_interact = $v; } when ('prompt') { $opt_prompt = $v; } when ('quiet') { $opt_quiet = $v; } when ('tty_in') { $tty_in = $v; } when ('tty_out') { $tty_out = $v; } default { die "Error: in subroutine set_opt(), found invalid key {$k => '$v'} (not 'file', 'argv', 'inter', 'prompt', 'quiet', 'tty_in' or 'tty_out')"; } } Term::DBPrompt — 18 Dec 2009 Commandline prompt for a database application
- 58. given ($inp_typ) when ('f') . . . when ('a') . . . when ('i') . . . default { die "Internal error: type = '$inp_typ' (not 'f', 'a' or 'i')"; } } Term::DBPrompt — 18 Dec 2009 Commandline prompt for a database application
- 59. when with a boolean value
- 60. unless ( 'itan' ~~ @list ) { given ( length $password ) { when ( 16 ) { # ok } when ( $_ < 4 ) { die('ERROR: Password is too short (Min 4 bytes required)'); } when ( $_ > 16 ) { die('ERROR: Password is too long (Max 16 bytes allowed)'); } default { while (1) { $password .= '0'; last if length $password == 16; } } } App::iTan::Utils — 26 Oct 2009 Secure management of iTans for online banking
- 61. unless ( 'itan' ~~ @list ) { given ( length $password ) { when ( 16 ) { # ok } when ( $_ < 4 ) { die('ERROR: Password is too short (Min 4 bytes required)'); } when ( $_ > 16 ) { die('ERROR: Password is too long (Max 16 bytes allowed)'); } default { while (1) { $password .= '0'; last if length $password == 16; } } } App::iTan::Utils — 26 Oct 2009 Secure management of iTans for online banking
- 63. sub range2list { my $_ = shift; given ($_) { when (/^(d)‐(d)$/o ) { return "$1..$2" } when (/^d..d$/o ) { return "$_" } when (/^d$/o ) { return $_} when (/^(.*?),(.*)$/o ) { return range2list($1). ',' .range2list($2)} default { return ''} } } Catalyst::Devel
- 64. when and ref
- 65. given(ref $fdef){ when('ARRAY'){ Package::FromData — 14 Jan 2008 generate a package with methods and variables from a data structure
- 66. when and undef
- 70. given($name) { when ('stream:stream') . . . when ('challenge') . . . when ('failure') . . . when ('stream:features') . . . given(my $clist = $node‐>getChildrenHash()) { when ('starttls') . . . when('mechanisms') . . . foreach($clist‐>{'mechanisms'}‐> [0]‐>getChildrenByTagName('*')) when($_‐>textContent() eq 'DIGEST‐MD5' or $_‐>textContent() eq 'PLAIN') when('bind') . . . default . . . when ('proceed') . . . when ('success') . . . POE::Component::Jabber — 22 Mar 2009 A POE Component for communicating over Jabber
- 71. given($name) { when ('stream:stream') . . . when ('challenge') . . . when ('failure') . . . when ('stream:features') . . . given(my $clist = $node‐>getChildrenHash()) { when ('starttls') . . . when('mechanisms') . . . foreach($clist‐>{'mechanisms'}‐> [0]‐>getChildrenByTagName('*')) when($_‐>textContent() eq 'DIGEST‐MD5' or $_‐>textContent() eq 'PLAIN') when('bind') . . . default . . . when ('proceed') . . . when ('success') . . . POE::Component::Jabber — 22 Mar 2009 A POE Component for communicating over Jabber
- 72. for and when
- 73. for ( catch ) { when ( $_‐>isa('Getopt::Lucid::Exception::ARGV') ) { say; # usage stuff return 1; } default { die $_ } } App::CPAN::Mini::Visit — 07 Nov 2008 explore each distribution in a minicpan repository
- 74. ~~
- 75. return _fail( $pkg, $sub ) if $_ ~~ 0; if ( $attr ~~ /^Export_?Lexical$/i ) { Export::Lexical — 09 Oct 2008 Lexically scoped subroutine imports
- 76. @exportz = grep { ! ( $_ ~~ @argz ) } @_; $disp ~~ @exportz or push @exportz, $disp; Exporter::Proxy — 29 Jan 2010 Simplified symbol export & proxy dispatch
- 77. @exportz = grep { ! ( $_ ~~ @argz ) } @_; $disp ~~ @exportz or push @exportz, $disp; Cool? Exporter::Proxy — 29 Jan 2010 Simplified symbol export & proxy dispatch
- 79. for( @_ ) { index $_, ':' or next; if( $_ ~~ @exportz ) { my $source = qualify_to_ref $_, $source; my $install = qualify_to_ref $_, $caller; *$install = *$source; } else { die "Bogus $source: '$_' not exported"; } } Exporter::Proxy — 29 Jan 2010 Simplified symbol export & proxy dispatch
- 80. for( @_ ) { index $_, ':' or next; Maybe when? if( $_ ~~ @exportz ) { my $source = qualify_to_ref $_, $source; my $install = qualify_to_ref $_, $caller; *$install = *$source; } else { die "Bogus $source: '$_' not exported"; } } Exporter::Proxy — 29 Jan 2010 Simplified symbol export & proxy dispatch
- 81. 48 files, and only single one (Maplat::Helpers::CommandHelper) uses 5.10 feature Maplat Maplat::Web::Login Maplat::Helpers::BuildNum Maplat::Web::LogoCache Maplat::Helpers::CSVFilter Maplat::Web::MemCache Maplat::Helpers::Cache::Memcached Maplat::Web::MemCacheSim Maplat::Helpers::Cache::Memcached::GetParser Maplat::Web::PathRedirection Maplat::Helpers::CommandHelper Maplat::Web::PostgresDB Maplat::Helpers::DBSerialize Maplat::Web::SendMail Maplat::Helpers::DateStrings Maplat::Web::SessionSettings Maplat::Helpers::Logo Maplat::Web::StandardFields Maplat::Helpers::MailLogger Maplat::Web::StaticCache Maplat::Helpers::Mascot Maplat::Web::Status Maplat::Helpers::Padding Maplat::Web::TemplateCache Maplat::Helpers::Strings Maplat::Web::UserSettings Maplat::Helpers::TextLogger Maplat::Web::VariablesADM Maplat::Web Maplat::Worker Maplat::Web::BaseModule Maplat::Worker::AdminCommands Maplat::Web::BrowserWorkarounds Maplat::Worker::BaseModule Maplat::Web::CommandQueue Maplat::Worker::Commands Maplat::Web::Debuglog Maplat::Worker::DirCleaner Maplat::Web::DirCleaner Maplat::Worker::MemCache Maplat::Web::DocsSearch Maplat::Worker::OracleDB Maplat::Web::DocsSpreadSheet Maplat::Worker::PostgresDB Maplat::Web::DocsWordProcessor Maplat::Worker::Reporting Maplat::Web::Errors Maplat::Worker::SendMail Maplat — 20 Jan 2010 The MAPLAT Web Framework This Module is actually a stub (don't use it)
- 82. 48 files, and only single one (Maplat::Helpers::CommandHelper) uses 5.10 feature if($line‐>{id} ~~ %active) Maplat — 20 Jan 2010 The MAPLAT Web Framework This Module is actually a stub (don't use it)
- 86. use 5.010; use feature ':5.10'; App::TemplateServer
- 87. $show_line //= 1 if $style eq 'Regexp::Common'; SmartMatch::Sugar Regexp-CharClasses
- 88. use Switch; switch($stream‐>codec_type){ case "video" { bless $stream, 'Video::FFmpeg::AVStream::Video'; push @streams, $stream; } case "audio" { bless $stream, 'Video::FFmpeg::AVStream::Audio'; push @streams, $stream; } case "subtitle" { bless $stream, 'Video::FFmpeg::AVStream::Subtitle'; push @streams, $stream; } else { push @streams, $stream; } } use if $] >= 5.011, 'deprecate'; Video::FFmpeg::AVFormat
- 90. $isPermaLink = (lc($guid‐>att('isPermaLink') // 'true') eq 'true'); App::RSS2Leafnode — 02 Feb 2010 post RSS feeds to newsgroups
- 92. given ( $params[0] // '' ) { when (blessed $_ && $_‐>isa('Math::BigInt')) { $bit = $class‐>string2bit(shift(@params)‐>as_bin()); } when (m/^d+$/) { $bit = $class‐>int2bit(shift(@params)); } when (m/^0[bB][01]+$/) { $bit = $class‐>string2bit(shift(@params)); } when (m/^[$ZERO$ONE]+$/) { $bit = $class‐>bit2bit(shift(@params)); } Bitmask::Data — 03 Oct 2008 Handle unlimited length bitmasks in an easy and flexible way
- 93. while ( my ( $option, $value ) = each %{$args} ) { given ($option) { when ('rules') { when ('terminals') { when ('trace_predefineds') { when ('start') { when ('trace_iterations') { when ('academic') { when ('trace_priorities') { when ('default_null_value') { when ('trace_completions') { when ('default_action') { when ('location_callback') { when ('default_lex_prefix') { when ('opaque') { when ('default_lex_suffix') { when ('cycle_action') { when ('ambiguous_lex') { when ('cycle_depth') { when ('strip') { when ('warnings') { when ('trace_file_handle') { when ('code_lines') { when ('trace_actions') { when ('allow_raw_source') { when ('trace_lex') { when ('max_parses') { when ('trace_lex_tries') { when ('version') { when ('trace_lex_matches') { when ('semantics') { when ('trace_values') { when ('lex_preamble') { when ('trace_rules') { when ('preamble') { when ('trace_strings') { default { Parse::Marpa::Internal
- 94. my $attrz = local $que‐>{ attrib } = $job2attrz{ $job_id } //= $que‐>merge_attrib( $job_id ) ; Parallel::Depend — 12 Aug 2009 Parallel-dependent dispatch of perl or shell code
- 95. foreach my $shipment (@{$response‐>shipment}) { say ".==========================================."; say "| Shipment $count |"; say $shipment‐>serialize‐>draw; say ""; if ($self‐>verbose) { say $shipment‐>xml‐>toString(1); } $count ++; } Parallel::Depend — 12 Aug 2009 Parallel-dependent dispatch of perl or shell code
- 96. use 5.010000; print "n"; print " chaptersn"; DVD::Read — 16 Nov 2008 libdvdread perl binding
- 99. Part V Use cases
- 100. Part V Use cases and what to care about
- 101. How to enable
- 104. use feature ':5.10.1'; use feature ':5.10'; 5.10 reads entire string
- 105. use feature ':5.10.1'; use feature ':5.10'; 5.10 reads entire string use feature ':5.10.1'; use feature ':5.10'; 5.10.1 — first two parts only
- 106. use feature ':5.10.1'; use feature ':5.10'; 5.10 reads entire string use feature ':5.10.1'; use feature ':5.10'; 5.10.1 — first two parts only use feature ':5.10.7';
- 109. > perl ‐E "say $$;"
- 110. ~~ to check if something is in the list
- 112. ~~ to compare arrays
- 114. my @a = (1, 3, 5); my @b = (1, qr/d/, 5); say @a ~~ @b; # 1 Note, this is not element by element comparision
- 115. my @a = (1, 3, 5); my @b = (1, qr/d/, 5); say @a ~~ @b; # 1 Note, this is element by element matching
- 116. ~~ to check command line arguments
- 118. % ./some_programme ‐‐debug ‐d say 'Debug' if '‐‐debug' ~~ @ARGV; say 'Daemon' if '‐d' ~~ @ARGV;
- 120. Chained //
- 122. my $ip = $page‐>param('request_ip') // $ENV{X_HTTP_FORWARDED_FOR} // $ENV{HTTP_X_REAL_IP} // $ENV{REMOTE_ADDR}; Easy to update
- 123. my $ip = $ENV{HTTP_X_REAL_IP} // $page‐>param('request_ip') // $ENV{X_HTTP_FORWARDED_FOR} // $ENV{REMOTE_ADDR}; Easy order control
- 124. state for counters
- 127. for and when
- 131. 1 use v5.10; 3 my @array = (1..20); my $count = 0; 5 for(@array) { 7 when(/[02468]$/) { 9 $count++; 11 } 13 say; 15 } 17 say $count; # 10 19
- 134. > perl5.10 ‐E 1 "say for 1..3" 2 3 > perl6 ‐e n "say for 1..3" n n
- 135. More A number of fascinating and useful regex features
- 136. Part V.X __END__ Andrew Shitov andy@shitov.ru talks.shitov.ru