Перл - прикол :)

van тут мне прислал, а я решил на форум положить



http://postman.strana.de/60_brain_perl.gif

 

Код (Text):

1.  
2. #!/usr/bin/perl -w                                    
3. use strict;
4.                                            $_='ev
5.                                        al("seek\040D
6.            ATA,0,                  0;");foreach(1..2)
7.        {<DATA>;}my               @camel1hump;my$camel;
8.   my$Camel  ;while(             <DATA>){$_=sprintf("%-6
9. 9s",$_);my@dromedary           1=split(//);if(defined($
10. _=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
11.  ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
12.         t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
13.        $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
14.       $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
15.      @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
16.      defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
17.      L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
18.       ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
19.       camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
20.       45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
21.        $Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
22.         5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
23.          rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval;   eval
24.            ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;(   );;s
25.              ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
26.                \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
27.                     40\143\141  \155\145\1 54\040\1   51\155\  141
28.                     \147\145\0  40\151\156 \040\141    \163\16 3\
29.                      157\143\   151\141\16  4\151\1     57\156
30.                      \040\167  \151\164\1   50\040\      120\1
31.                      45\162\   154\040\15    1\163\      040\14
32.                      1\040\1   64\162\1      41\144       \145\
33.                      155\14    1\162\       153\04        0\157
34.                       \146\     040\11     7\047\         122\1
35.                       45\15      1\154\1  54\171          \040
36.                       \046\         012\101\16            3\16
37.                       3\15           7\143\15             1\14
38.                       1\16            4\145\163           \054
39.                      \040            \111\156\14         3\056
40.                     \040\         125\163\145\14         4\040\
41.                     167\1        51\164\1  50\0         40\160\
42.                   145\162                              \155\151
43.                 \163\163                                \151\1
44.               57\156\056
45.  
46. # camel code, copyright 2000 by Stephen B. Jenkins
47. # The use of a camel image with the topic of Perl
48. # is a trademark of O'Reilly & Associates, Inc.
49. # Used with permission.
50.  
51.  
52.  

угадайте, что она напечатает

ps: это не rm -rf

 

ssx



запустил! круто