Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
fn { [ reverse(@{$_[0]}) ] } |
fn { join('-', @{$_[0]}) } |
fn { $_[0] . "\n" };
  2. or download this
    package Pipes;
use strict;
...
}

1;
  3. or download this
    perl -e 'print sub { "Hello @{[shift->()]}!\n" }->(sub{"World"})'