[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
 
[an error occurred while processing this directive] [an error occurred while processing this directive]
Skåne Sjælland Linux User Group - http://www.sslug.dk Home   Subscribe   Mail Archive   Forum   Calendar   Search
MhonArc Date: [Date Prev] [Date Index] [Date Next]   Thread: [Date Prev] [Thread Index] [Date Next]   MhonArc
 

Re: [PROGRAMMERING] perl:JAPH



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


 
Home   Subscribe   Mail Archive   Index   Calendar   Search

 
 
Questions about the web-pages to <www_admin>. Last modified 2006-11-01, 02:01 CET [an error occurred while processing this directive]
This page is maintained by [an error occurred while processing this directive]MHonArc [an error occurred while processing this directive] # [an error occurred while processing this directive] *