Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Camel JAPH

by agianni (Hermit)
on Feb 27, 2007 at 13:29 UTC ( #602295=obfuscated: print w/ replies, xml ) Need Help??

This isn't all that obfuscated, but it's my first try at both JAPH and obfuscation:
perl -e'map\ {map{print chr }/\d\ {3}/gx }join q{},\ split/\s/sx,q(0741171151\ 16032097110111116104101\ 114 032 080 10 1\ 114 108 032 104 \ 09 70 99 10\ 7 1 0 1\ 1 1 4 0\ 4 4 ) ;'

Comment on Camel JAPH
Download Code
Re: Camel JAPH
by Anno (Deacon) on Feb 27, 2007 at 14:52 UTC
    Pretty!

    As for obfuscated, it's certainly obfuscated enough to belong in this section, or, at least, in no other.

    A JAPH as such doesn't have to be obfuscated at all. Any novel way of making Perl print the four words is valid.

    Anno

Re: Camel JAPH
by monkfan (Curate) on Mar 08, 2007 at 13:53 UTC
    Neat, but running on Linux, it gives me this error:
    monkfan@access7:~$perl -e'map\ > {map{print chr }/\d\ > {3}/gx }join q{},\ > split/\s/sx,q(0741171151\ > 16032097110111116104101\ > 114 032 080 10 1\ > 114 108 032 104 \ > 09 70 99 10\ > 7 1 0 1\ > 1 1 4 0\ > 4 4 ) ;' syntax error at -e line 3, near "}join" (Might be a runaway multi-line // string starting on line 2) Execution of -e aborted due to compilation errors.

    Regards,
    Edward
      Solaris 8 same error - cool though

      # perl -e'map\ > {map{print chr }/\d\ > {3}/gx }join q{},\ > split/\s/sx,q(0741171151\ > 16032097110111116104101\ > 114 032 080 10 1\ > 114 108 032 104 \ > 09 70 99 10\ > 7 1 0 1\ > 1 1 4 0\ > 4 4 ) ;' syntax error at -e line 3, near "}join" (Might be a runaway multi-line // string starting on line 2) Execution of -e aborted due to compilation errors. # uname -a SunOS gort 5.8 Generic_108528-24 sun4u sparc SUNW,Sun-Fire-480R
        I get the same error running under mingw/msys. But if I take away the command line stuff:
        map {map{print chr }/\d {3}/gx }join q{}, split/\s/sx,q(0741171151 16032097110111116104101 114 032 080 10 1 114 108 032 104 09 70 99 10 7 1 0 1 1 1 4 0 4 4 ) ;
        It works flawlessly. And is still nicely camelicious.


        TGI says moo

        Interesting, it works nicely for me under Solaris 9 and MacOS 10.4. If I copy your output with the GT symbols at the start of each line, I get the same error you do. But if I simply copy and paste it to the command line it works fine. I'll have to muck with it and do some more testing.
        perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79 +*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (3)
As of 2014-07-31 03:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (244 votes), past polls