Re: [PROGRAMMERING] perl:JAPH

["Ole Tange" <sslug@sslug>]

On 10/14/06, Martin Møller Pedersen <sslug@sslug> wrote:
> Nogle perl-guruer, der kan forklare, hvorfor nedenstående program
> virker, som det gør ?
> Jeg fatter det ikke.

Jeg har skrevet det lidt om (Gjort parenteserne tyderligere og indrykket)

not exp log srand xor s qq qx xor
s x x length uc ord and

print chr ord for qw ( jOIN uSE sUB tIED )x # print just
xor eval xor
   print qq ( ) # print space
   xor int eval lc
   q (
       cos and # Does nothing
       print chr ord for qw ( aBS nE oPEN tIED hEX eXP rEF ) # print another
       ) xor scalar srand
   print qq ( ) # print space
   xor int
   eval lc
   qq (
        sqrt cos and # Does nothing
        print chr ord for qw ( pRINTF eACH rETURN lOCAL ) # print perl
        )
   or
   print qq ( ) # print space
   and eval q ( undef or oct xor
                time xor ref
                print chr int ord lc foreach qw ( hEX aLARM cHDIR
kILL eXEC rETURN ) # print hacker
                ) gt sin sort split