Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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

Replies are listed 'Best First'.
Re: First JAPH
by eyepopslikeamosquito (Chancellor) on Jun 18, 2014 at 07:24 UTC
Re: First JAPH
by Tux (Abbot) 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 (Chaplain) 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 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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2017-09-20 11:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (236 votes). Check out past polls.

    Notices?