Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Deparse JAPH

by epoptai (Curate)
on May 27, 2001 at 22:41 UTC ( [id://83631]=obfuscated: print w/replies, xml ) Need Help??

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


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.

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;
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'

    ___
    -DA

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://83631]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2024-03-28 20:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found