First Japh

Not sure if can be considered an obfu..

unx#perl -e '@_="Js nte elHce rka rPrhoAtu"=~/./g;for$}(1..$#_+1){whil
+e(<$0 >){(s|e|($}%2?shift@_:pop@_)|e);print}}'

win>perl -e "@_='Js nte elHce rka rPrhoAtu'=~/./g;for$}(1..$#_+1){whil
+e(<$0 >){(s|e|($}%2?shift@_:pop@_)|e);print}}"
[download]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Comment on First Japh Download Code

Replies are listed 'Best First'.
Re: First Japh by KurtSchwind (Chaplain) on Feb 10, 2015 at 20:36 UTC
The alternating shift and pop are nice. And it ties in nicely with the alternating dashes. Well done! -- “For the Present is the point at which time touches eternity.” - CS Lewis	[reply]
Re: First Japh by Anonymous Monk on Feb 08, 2015 at 04:47 UTC
I got below: C:\PERL>perl -e "@_='Js nte elHce rka rPrhoAtu'=~/./g;for$}(1..$#_+1){while(<$0>){(s\|e\|($}%2?shift@_:pop@_)\|e);print}}" -J-u-s-t- -A-n-o-t-h-e-r- -P-e-r-l- -H-a-c-k-e-r-	[reply]