Help for this page

Select Code to Download


  1. or download this
    johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
say join q{.}, sub { map { pop } 1 .. @_ }->
   ( split m{\.}, shift );' www.perlmonks.org.split.reduce.code.check
check.code.reduce.split.org.perlmonks.www
  2. or download this
    echo www.perlmonks.org.split.reduce.code.check | perl -lnE 'say sub{ma
+p pop,@_}->(split/(\.)/)'