Yukardaki kodun output'u: Output of this program:. mm. . mm. . XXXXXXLm. . mm. . mm. . mJXXXXXX. . XXXXXXXXXXL. XXX^XLmm mmJX^XXX. JXXXXXXXXXX. JXXXXXXXXXXXL. . XXXXXXXXXX XXXXXXXXXX. . JXXXXXXXXXXXL. JXXXXXXXXXXXXXXL. . JXXXXXXXXXXXXXXL. . XXXXXXXXXXXXXXXXXXL XXXXXXL JXXXXXX JXXXXXXXXXXXXXXXXXX. mXXXXXXXXXXXXXXXXXXXXXXXXXXXX} {XXXXXXXXXXXXXXXXXXXXXXXXXXXXm JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX XX 7X. XXXXXXXXXXXXXXXX^7F' `7F^XXXXXXXXXXXXXXXX . XF 7}JXXF XXXXX XXXXX XXXXX XXXXX 7XXL{F XXF {XXX 7XXXX. . XXXXF XXX} 7XX {XX' `7XXX} XXX} {XXX {XXXF' `XX} {XX 7XX. JXX' `XXL. XXF XX} XX ^XXmXX^' `^XXmXX^ XX XX. JXXX' XX XX `XXXL. XX. XX} XXXXXLm mJXXXXX {XX. {XXX. `^'`^^^' `^^^'`^' . 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 `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX} XX XX {XXXXXXXXXXXXXXXXXXXXXXXXF' `7F^XXXXXXXXXXXXXXXX . XF 7X. XXXXXXXXXXXXXXXX^7F' XXXXX XXXXX 7XXL JXXF XXXXX XXXXX . XXXXF XXX} 7XX XXF {XXX 7XXXX. {XXX {XXXF' `XX} {XX' `7XXX} XXX} `XX} `XXL. XXF XX} {XX 7XX. JXX' `^XXmXX^ XX XX ^XXmXX^' mJXXXXX XXXXXLm `^^^'`^' . XXX} {XXX. `^'`^^^' {XXm mXXXX ^^^ ^^^ XXXXm

alıntı...#!/usr/bin/perl -w use strict; $_='ev al("seek\040D ATA,0, 0;");foreach(1..2) my @camel1hump;my$camel; my$Camel ;while {$_=sprintf("%-69s",$_);my@dromedary 1=split ;if(defined while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif t(@dromedary1 ))&&/\S/) $CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/) $CAMEL--;if(defined($_=shift( @camel1hump))&&/\S/) $CAMEL--;if( defined($_=shift(@camel1hump))&&/\S/) $camel.=(split(//,"\040.. m` L^7FX")) ;}$camel.="\n";}@camel1hump=split ;foreach(@ camel1hump) foreach(@camel1hump) #japh-Erudil';;s;\s ;;g;;eval; eval ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s $$g; ;;s ;^. _;;;map /. /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

çok güzel ahrbi helal olsun

hehe çok ilginç. Hem kodlar deve şeklinde hemde çıktısı. Kim yaptıysa eline sağlık.