漂亮的Perl

来源：互联网发布：java 典型的编程题目编辑：程序博客网时间：2024/04/28 19:08

copied from http://www.cpan.org/misc/japh
really prety ;-p

#Erudil from http://www.perlmonks.com/
#!/usr/bin/perl -w                                      # camel code
use strict;

                                           $_='ev
                                       al("seek/040D
           ATA,0,                  0;");foreach(1..3)
       {<DATA>;}my               @camel1hump;my$camel;
my$Camel ;while(             <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
        t(@dromedary1    ))&&//S/){$camel1hump+=1<<$CAMEL;}
       $CAMEL--;if(d   efined($_=shift(@dromedary1))&&//S/){
      $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
     @camel1hump))&&//S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
     defined($_=shift(@camel1hump))&&//S/){$camel1hump+=1<<$CAME
     L;;}$camel.=(split(//,"/040..m`{/J/047/134}L^7FX"))[$camel1h
      ump];}$camel.="/n";}@camel1hump=split(//n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7/173/175`/047//061/062/063/
      064/065/066/067/070/;y/12345678/JL7F/175/173/047`/;$_=reverse;
       print"$_/040$Camel/n";}foreach(@camel1hump){chomp;$Camel=$_;y
        /LJF7/173/175`/047/12345678/;y/12345678/JL7F/175/173/0 47`/;
         $_=reverse;print"/040$_$Camel/n";}';;s//s*//g;;eval;   eval
           ("seek/040DATA,0,0;");undef$/;$_=<DATA>;s//s*//g;(   );;s
             ;^.*_;;;map{eval"print/"$_/"";}/.{4}/g; __DATA__   /124
               /1   50/145/040/165/163/145/040/157/1 46/040/1 41/0
                    40/143/141 /155/145/1 54/040/1   51/155/ 141
                    /147/145/0 40/151/156 /040/141    /163/16 3/
                     157/143/   151/141/16 4/151/1     57/156
                     /040/167 /151/164/1   50/040/      120/1
                     45/162/   154/040/15    1/163/      040/14
                     1/040/1   64/162/1      41/144       /145/
                     155/14    1/162/       153/04        0/157
                      /146/     040/11     7/047/         122/1
                      45/15      1/154/1 54/171          /040
                      /046/         012/101/16            3/16
                      3/15           7/143/15             1/14
                      1/16            4/145/163           /054
                     /040            /111/156/14         3/056
                    /040/         125/163/145/14         4/040/
                    167/1        51/164/1 50/0         40/160/
                  145/162                              /155/151
                /163/163                                /151/1
              57/156/056
%%