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 @_
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
In Section
Obfuscated Code