Running on my machine with Perl 5.16.3 produces:
Changing $|-- to --$| like so:er,ackrl heP Just another
produces the required:sub _{@_<2&&return print@_;my@a;push@{$a[--$|]},$_ for @_;_(@$_)for@a};_ split//,"huroP cels,tetah Jen akrr";
See also: Japhy explains where behaviour of --$| is documented.Just another Perl hacker,
Update: To further clarify this mysterious "flip-flop" behavior when $| is --'ed, but not when ++'ed, notice that running:
produces:perl -le 'print --$| for 1..5'
while running:1 0 1 0 1
produces:perl -le 'print ++$| for 1..5'
BTW, this magical --$| flip-flop often produces the shortest Perl golf solutions when you need to flip-flop between two different values in a loop; for example, it was used in Re^2: Mini-Tutorial: Working with Odd/Even Elements and Spending Time on Saving Time [golf].1 1 1 1 1
In reply to Re: $|-- rocks. (Japhy explains where behaviour of --$| is documented)
by eyepopslikeamosquito
in thread $|-- rocks.
by BenGoldberg
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |