Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Just Another JAPH

by Eimi Metamorphoumai (Deacon)
on Feb 03, 2005 at 19:19 UTC ( #427785=obfuscated: print w/ replies, xml ) Need Help??

It's relatively simple and straightforward (compared to the usual fare here), but since it uses a technique I haven't seen anyone else use, I thought I'd post it here.
perl -le '$_=(split q,",,`$^Xdoc -q japh`)[1].".";y/pj/PJ/;print'

Comment on Just Another JAPH
Download Code
Replies are listed 'Best First'.
Re: Just Another JAPH
by ambrus (Abbot) on Feb 03, 2005 at 19:50 UTC

    I have done something similar in One-liner japh. Using perldoc -q is a nice trick that makes it short, and didn't occurr to me.

    Update: (this kind of thing is not easy to super-search to, is it?)

    Update: later, three other people have also found this japh idea: see Opere Citato Japh, JAPF, and Perl FAQ.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2015-07-31 06:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls