Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -E '
my @a = ( 1 .. 10 );
...
sub transform (&@) { map $_[ 0 ]->( $_ ), @_[ 1 .. $#_ ] }'
2 3 4 5 6 7 8 9 0 1
$
  2. or download this
    $ perl -Mstrict -Mwarnings -E '
my @a = ( 1 .. 10 );
...
sub transform (&) { $_[ 0 ]->( $_ ) }'
2 3 4 5 6 7 8 9 10 11
$
  3. or download this
    $ perl -Mstrict -Mwarnings -E '
my @a = ( 1 .. 10 );
...
sub transform (&) { $_[ 0 ]->( $_ ) }'
2 3 4 5 6 7 8 9 0 1
$