Deparse JAPH

This JAPH specifically relies on pure perl behavior without any intervening pragma or switch, and must be run with Deparse in order to see the message, like this from the command line:

perl -MO=Deparse this.pl.

Tested on ActivePerl Build 522 (5.00503) and Cygwin v5.6.1.

u j t S n a t o e h r , e p l r a h k c r e
[download]

Update: Thanks da for pointing out the one-liner:

perl -MO=Deparse -e"u j t S n a t o e h r , e p l r a h k c r e"

--
Check out my Perlmonks Related Scripts like framechat, reputer, and xNN.

Comment on Deparse JAPH Download Code

Replies are listed 'Best First'.
Re: Deparse JAPH by tachyon (Chancellor) on May 28, 2001 at 03:49 UTC
With no deparse but totally missing the point :p tachyon `$_='u j t s n a t o e h r , e p l r a h k c r e'; s/(\w).(\w)?.?/$2$1/g;print;` [download]	[reply] [d/l]
Re: Deparse JAPH by da (Friar) on May 30, 2001 at 21:38 UTC
On *nix perl you can shorten that to a one-liner for extra-special sig powers: `perl -MO=Deparse -e'u j t S n a t o e h r , e p l r a h k c r e'` [download] `___` `-DA`	[reply] [d/l] [select]