http://www.perlmonks.org?node_id=445601


in reply to Brothers Vars

ah, here's my decoding of it :)

there are two lists : @_ and @__ . they each have 25 elements, which is also the number of chars in "just another perl hacker," ...
Then we have a subroutine named _ called with two arguments that are references to the previously defined array .
And what does this _ sub do ? Well it pops an element from each list, do a | operator on them and print the results.
The arrays are called with the form  @{$_[0]} and  @{$_[1]} because it's a dereferencing of a reference passed in @_

After this the _ sub calls itself, but only if there are elements left in the array, thus ensuring that along with the pop it ends after 25 calls .

So it happens that these previous brother vars when bitwise OR'ed with each other print the japh !

Cheers,
Z

Replies are listed 'Best First'.
Re^2: Brothers Vars
by cristian (Hermit) on Apr 07, 2005 at 13:40 UTC 
    Yes , in resume.

The Recursive sub "_" is a luxury.

The true interesting is "|" operator and char in left and right.

example.

perl -e "print ('$'|'(')"; => ","

The operator |produce in some case other symbol,
according to brothers.

It is fun.

    [download]
[reply]
[d/l]

In Section Obfuscated Code