Başlangıç > Kodlar > Perl de ilginç bir kod

Perl de ilginç bir kod

Kod:

#!/usr/bin/perl -w
use strict;
$_=’ev
al(“seek40D
ATA,0,                  0;”);foreach(1..2)
{<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`{/J47\134}L^7FX”))[$camel1h
ump];}$camel.=”\n”;}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`47/616263
45678/;tr/12345678/JL7F\175\17347`/;$_=reverse;print”$_40
$Camel\n”;}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
5`47/12345678/;tr/12345678/JL7F\175\17347`/;$_=reverse;p
rint”40$_$Camel\n”;}#japh-Erudil’;;s;\s*;;g;;eval;   eval
(“seek40DATA,0,0;”);undef$/;$_=<DATA>;s$\s*$$g;(   );;s
;^.*_;;;map{eval”print\”$_\””;}/.{4}/g; __DATA__   \124
\1   50\14540\165\163\14540\157\1 4640\1  41
40\143\141  \155\145\1 5440\1   51\155\  141
\147\145  40\151\156 40\141    \163\16 3\
157\143\   151\141\16  4\151\1     57\156
40\167  \151\164\1   5040\      120\1
45\162\   15440\15    1\163\      040\14
140\1   64\162\1      41\144       \145\
155\14    1\162\       1534        0\157
\146\     040\11     747\         122\1
45\15      1\154\1  54\171          40
46\         012\101\16            3\16
3\15           7\143\15             1\14
1\16            4\145\163           54
40            \111\156\14         356
40\         125\163\145\14         440\
167\1        51\164\1  50         40\160\
145\162                              \155\151
\163\163                                \151\1
57\15656

Çıktı görüntüsü:

.mm.                                           .mm.
.XXXXXXLm.        .mm.           .mm.        .mJXXXXXX.
.XXXXXXXXXXL      .XXX^XLmm   mmJX^XXX.      JXXXXXXXXXX.
JXXXXXXXXXXXL.   .XXXXXXXXXX XXXXXXXXXX.   .JXXXXXXXXXXXL
.JXXXXXXXXXXXXXXL. {XXXXXX^^^’ `^^^XXXXXX} .JXXXXXXXXXXXXXXL.
.XXXXXXXXXXXXXXXXXXL XXXXXXL       JXXXXXX JXXXXXXXXXXXXXXXXXX.
mXXXXXXXXXXXXXXXXXXXXXXXXXXXX}     {XXXXXXXXXXXXXXXXXXXXXXXXXXXXm
JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX’     `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX       XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX’       `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XX {XXXXXXXXXXXXXXXXXXXXXXXXF’         `7XXXXXXXXXXXXXXXXXXXXXXXX} XX
7X.{XXX}XXXXXXXXXXXXXXXX^7F’             `7F^XXXXXXXXXXXXXXXX{XXX}.XF
7}JXXF {XXX}XXXXX XXXXX                     XXXXX XXXXX{XXX} 7XXL{F
XXF  {XXX 7XXXX.{XXX}                     {XXX}.XXXXF XXX}  7XX
{XX’  {XX} `7XXX} XXX}                     {XXX {XXXF’ {XX}  `XX}
{XX    7XX.  JXX’ {XX’                     `XX} `XXL  .XXF    XX}
XX     ^XXmXX^’  {XX                       XX}  `^XXmXX^     XX
XX     .JXXX’     XX                       XX     `XXXL.     XX
.XX}    XXXXXLm    {XL                     JX}    mJXXXXX    {XX.
{XXX.   `^’`^^^’   {XXm                   mXX}   `^^^’`^’   .XXX}
^^^                XXXXm               mXXXX                ^^^

.mm.                    .mm.
.mm.        .mJXXXXXX.                .XXXXXXLm.        .mm.
mmJX^XXX.      JXXXXXXXXXX.              .XXXXXXXXXXL      .XXX^XLmm
XXXXXXXXXX.   .JXXXXXXXXXXXL              JXXXXXXXXXXXL.   .XXXXXXXXXX
`^^^XXXXXX} .JXXXXXXXXXXXXXXL.          .JXXXXXXXXXXXXXXL. {XXXXXX^^^’
JXXXXXX JXXXXXXXXXXXXXXXXXX.        .XXXXXXXXXXXXXXXXXXL XXXXXXL
{XXXXXXXXXXXXXXXXXXXXXXXXXXXXm      mXXXXXXXXXXXXXXXXXXXXXXXXXXXX}
`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL    JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX’
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}  {XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX’
`7XXXXXXXXXXXXXXXXXXXXXXXX} XX  XX {XXXXXXXXXXXXXXXXXXXXXXXXF’
`7F^XXXXXXXXXXXXXXXX{XXX}.XF  7X.{XXX}XXXXXXXXXXXXXXXX^7F’
XXXXX XXXXX{XXX} 7XXL{F    7}JXXF {XXX}XXXXX XXXXX
{XXX}.XXXXF XXX}  7XX        XXF  {XXX 7XXXX.{XXX}
{XXX {XXXF’ {XX}  `XX}      {XX’  {XX} `7XXX} XXX}
`XX} `XXL  .XXF    XX}      {XX    7XX.  JXX’ {XX’
XX}  `^XXmXX^     XX        XX     ^XXmXX^’  {XX
XX     `XXXL.     XX        XX     .JXXX’     XX
JX}    mJXXXXX    {XX.      .XX}    XXXXXLm    {XL
mXX}   `^^^’`^’   .XXX}      {XXX.   `^’`^^^’   {XXm
mXXXX                ^^^        ^^^                XXXXm

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: