Asuntos Oficiales > La taberna del BIT

 Codigos Lindos

(1/3) > >>

su -:
Hey, miren esto:


--- Código: Text ---#!/usr/bin/perl -w                                      # camel codeuse strict;                                            $_='ev                                       al("seek\040D           ATA,0,                  0;");foreach(1..3)       {<DATA>;}my               @camel1hump;my$camel;  my$Camel &#59;while(             <DATA>){$_=sprintf("%-69s",$_);my@dromedary           1=split(//);if(defined($_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda ry1){my$camel1hump=0     &#59;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            &#59;^.*_;;;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 

su -:
Je, je.
Quien puede hacer halgo asi, yo no!
 :suerte:

ibito:
no se porque se me afigura que ese  codigo no hace nada... o si hace?

su -:
Si si funciona, imprime esto:

--- Código: Text ---         .mXXXmm                                       mmXXXm.        .XXXXXXXXXm       .XXXmm       mmXXX.       mXXXXXXXXX.       .JXXXXXXXXXXF     mJXXXJXXXL JXXXLXXXLm     7XXXXXXXXXXL.       7XXXXXXXXXXXXLm. `XXXXXXXXXX XXXXXXXXXX' .mJXXXXXXXXXXXXF     .XXXXXXXXXXXXXXXXXm 7XXXXXL       JXXXXXF mXXXXXXXXXXXXXXXXX.    .XXXXXXXXXXXXXXXXXXXLJXXXXXXL     JXXXXXXLJXXXXXXXXXXXXXXXXXXX.   JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL  JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}     {XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL {XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'     `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX} {XF`XXXXXXXXXXXXXXXXXXXXXXXXXX'       `XXXXXXXXXXXXXXXXXXXXXXXXXX'7X} `XL 7XXXFXXXXXXXXXXXXXXXXXXXF           7XXXXXXXXXXXXXXXXXXX7XXXF JX'  7X XXXF`XXXX7XXXXF7XXXX} ^               ^ {XXXXF7XXXXFXXXX'7XXX XF   ^{XXF  XXXF{XXXX}`XXXX'                   `XXXX'{XXXX}7XXX  7XX}^    JXX   XXX' XXXXX 7XXX                     XXXF XXXXX `XXX   XXL    XX}   7XX.  ^XXX `XXX                     XXX' XXX^  .XXF   {XX    7X}    7XX..JXX'  XX}                     {XX  `XXL..XXF    {XF    {X}     `XXXX'    7X}                     {XF    `XXXX'     {X}    {XL    .XXXXL     `XL                     JX'     JXXXX.    JX}    XXX.   `XX^XXXL    XX}                   {XX    JXXX^XX'   .XXX    7XXF               7XXL.               .JXXF               7XXF                       `^^^^'             `^^^^'                    mmXXXm.                  .mXXXmm    mmXXX.       mXXXXXXXXX.                .XXXXXXXXXm       .XXXmm JXXXLXXXLm     7XXXXXXXXXXL.              .JXXXXXXXXXXF     mJXXXJXXXL XXXXXXXXXX' .mJXXXXXXXXXXXXF              7XXXXXXXXXXXXLm. `XXXXXXXXXX    JXXXXXF mXXXXXXXXXXXXXXXXX.          .XXXXXXXXXXXXXXXXXm 7XXXXXL   JXXXXXXLJXXXXXXXXXXXXXXXXXXX.        .XXXXXXXXXXXXXXXXXXXLJXXXXXXL   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL      JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   {XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL    JXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}   `XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX}  {XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'    `XXXXXXXXXXXXXXXXXXXXXXXXXX'7X}  {XF`XXXXXXXXXXXXXXXXXXXXXXXXXX'      7XXXXXXXXXXXXXXXXXXX7XXXF JX'  `XL 7XXXFXXXXXXXXXXXXXXXXXXXF        ^ {XXXXF7XXXXFXXXX'7XXX XF    7X XXXF`XXXX7XXXXF7XXXX} ^          `XXXX'{XXXX}7XXX  7XX}^      ^{XXF  XXXF{XXXX}`XXXX'           XXXF XXXXX `XXX   XXL        JXX   XXX' XXXXX 7XXX           XXX' XXX^  .XXF   {XX        XX}   7XX.  ^XXX `XXX           {XX  `XXL..XXF    {XF        7X}    7XX..JXX'  XX}           {XF    `XXXX'     {X}        {X}     `XXXX'    7X}           JX'     JXXXX.    JX}        {XL    .XXXXL     `XL          {XX    JXXX^XX'   .XXX        XXX.   `XX^XXXL    XX}        .JXXF               7XXF        7XXF               7XXL.       `^^^^'                                              `^^^^'The use of a camel image in association with Perl is a trademark of O'Reilly &Associates, Inc. Used with permission. si le quitas el -w o sino lo imprime + unascuantos debugs.
 :hola:

su -:
PD: se llama JaPh (Just Another Perl Hacker).
http://www.cpan.org/misc/japh

 :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente