perl的有趣程序

发布时间：2020-12-16 00:23:00 所属栏目：大数据来源：网络整理

导读：$_='ev al("seek40D ATA,0;");foreach(1..3) {DATA;}my @camel1hump;my$camel; my$Camel ;while( DATA){$_=sprintf("%-69s",$_);my@dromedary 1=split(//);if(defined($_=DATA)){@camel1hum p=split(//);}while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3

                                       $_='ev
                                       al("seek40D
           ATA,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(//,"40..m`{/J47134}L^7FX"))[$camel1h
      ump];}$camel.="n";}@camel1hump=split(/n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7173175`47/616263
      06465666770/;y/12345678/JL7F17517347`/;$_=reverse;
       print"$_40$Cameln";}foreach(@camel1hump){chomp;$Camel=$_;y
        /LJF7173175`47/12345678/;y/12345678/JL7F175173 47`/;
         $_=reverse;print"40$_$Cameln";}';;s/s*//g;;eval;   eval
           ("seek40DATA,0;");undef$/;$_=<DATA>;s/s*//g;(   );;s
             ;^.*_;;;map{eval"print"$_"";}/.{4}/g; __DATA__   124
               1   5014540165163145401571 46401  41
                    40143141  1551451 54401   51155  141
                    147145  40151156 40141    16316 3
                     157143   15114116  41511     57156
                     40167  1511641   5040      1201
                     45162   1544015    1163      04014
                     1401   641621      41144       145
                     15514    1162       1534        0157
                      146     04011     747         1221
                      4515      11541  54171          40
                      46         01210116            316
                      315           714315             114
                      116            4145163           54
                     40            11115614         356
                    40         12516314514         440
                    1671        511641  50         40160
                  145162                              155151
                163163                                1511
              5715656

效果还挺有趣的

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!