Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

First JAPH

by Feland (Novice)
on Jun 17, 2014 at 14:32 UTC ( #1090151=obfuscated: print w/ replies, xml ) Need Help??

This is my (oh !!) first JAPH. I'm a little newbie at this place, but I hope that is not too bad :) Please, comment !

&p(qw(Ju));$x= $/;$|=$$;$,=$/;$\=$!; sub T{eval$_[0]};sub su{T q%sel%.q +ect *a,* a,*+.'a, .06';}sub p{T(q;p;. q 5ri5.q qntq)for @_}map{p ('u');& su;}(1.. 17);sub s{+$_[0] };&s(&su );$a='rl' ;$\=$x;&s(&p("st"));$\=$!;&s (&su);sub r($;){+p($_[0] )};p(q-A-);sub z{$\=$/?$;: $,;$,=$;;su();map{&s(p('a'));& s(su);}@_};z((1..7));$,=$x;$\=$, ;$"=$\;$,=$/; $_=q!!;s;;;; p(q qnoq.q rthe\rr);$\ =$/?$;:$,;$ ,=$;;;;su(); r "P";map{r "e";&s||&su; }(1..42);$\ =$;;&s(p($a) );T(T(su())); r $/;r "H";$\ =$/?$;:$,;$/=$,;z(1..12);$,=$\;$\ =$/;$a=~s/(.)l//;p(q tcket.$1 );&s(p($"));$e='Felicien'; #MYFIRSTJAPH

Comment on First JAPH
Download Code
Re: First JAPH
by Tux (Monsignor) on Jun 17, 2014 at 14:39 UTC

    Nice, but I doubt if this was your intention:

    Juuuuuuuuuuuuuuuuuust Aaaaaaaanother Peeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeerl Haaaaaaaaaaaacker

    Enjoy, Have FUN! H.Merijn
      It was exactly my intention :)
Re: First JAPH
by thomas895 (Hermit) on Jun 17, 2014 at 20:09 UTC

    Not quite working here. When copy-pasted to here, I get the intended result. But when it appears on the tty, I get a lot of strange symbols, as in:

    Juuuuuuuuuuuuuuuuuust
    Aa^\a^\a^\a^\a^\a^\ather
    P^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\e^\rl
    ^\H^\a^\a^\a^\a^\a^\a^\a^\a^\a^\a^\a^\a^\cker
    

    ...but only on the XFCE terminal. On XTerm, it appears just fine.
    This is on 5.16.2, i586-linux-thread-multi.

    ~Thomas~ 
    "Excuse me for butting in, but I'm interrupt-driven..."
Re: First JAPH
by eyepopslikeamosquito (Canon) on Jun 18, 2014 at 07:24 UTC
Re: First JAPH
by ambrus (Abbot) on Jun 19, 2014 at 05:57 UTC
Re: First JAPH
by NateTut (Deacon) on Dec 08, 2014 at 19:20 UTC
    Too bad it wasn't your 8th JAPH.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1090151]
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2015-07-06 03:06 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 (69 votes), past polls