{"id":205,"date":"2008-12-15T12:02:57","date_gmt":"2008-12-15T18:02:57","guid":{"rendered":"http:\/\/vostorga.org\/?p=205"},"modified":"2008-12-15T12:02:57","modified_gmt":"2008-12-15T18:02:57","slug":"curioso-script-de-perl","status":"publish","type":"post","link":"https:\/\/vostorga.org\/?p=205","title":{"rendered":"Curioso script de perl"},"content":{"rendered":"

Recientemente vagando en el Internet me hall\u00e9 el siguiente script de perl<\/a> con forma de camello:<\/p>\n

                                                       #<\/span>\r\n                                                   sub<\/span> j(<\/span>\\$)<\/span>{<\/span>(<\/span>$\r\n                     P,$V<\/span>)<\/span>=                      @_<\/span>;while(<\/span>$$P<\/span>=~s<\/span>:^\r\n                 (<\/span>[<\/span>(<\/span>)<\/span>]<\/span>)<\/span>::x<\/span>)<\/span>{<\/span>                    $V<\/span>+=(<\/span>'('<\/span>eq$1<\/span>)<\/span>?-32<\/span>:31<\/span>\r\n           }<\/span>$V<\/span>+=ord<\/span>(<\/span>  substr<\/span>(<\/span>                 $$P<\/span>,0<\/span>,1<\/span>,\"\"<\/span>)<\/span>)<\/span>-74<\/span>}<\/span> sub<\/span> a{<\/span>\r\n          my<\/span>(<\/span>$I<\/span>,$K<\/span>,$  J,$L<\/span>)<\/span>=@_<\/span>               ;$I<\/span>=int<\/span>(<\/span>$I<\/span>*$M<\/span>\/$Z<\/span>)<\/span>;$K<\/span>=int<\/span>(<\/span>\r\n         $K<\/span>*$M<\/span>\/$Z<\/span>)<\/span>;$J<\/span>=int<\/span>(<\/span>$J<\/span>*$M<\/span>             \/$Z<\/span>)<\/span>;$L<\/span>=int<\/span>(<\/span>$L<\/span>*$M<\/span>\/$Z<\/span>)<\/span>; $G<\/span>=$\r\n         J-$I<\/span>;$F<\/span>=$L<\/span>-$K<\/span>;$E<\/span>=(<\/span>abs<\/span>(<\/span>$          G)<\/span>>=abs<\/span>(<\/span>$F<\/span>)<\/span>)<\/span>?$G<\/span>:$F<\/span>;(<\/span>$E<\/span><0<\/span>)<\/span> and<\/span>(<\/span>$\r\n          I,$K<\/span>)<\/span>=(<\/span>$J<\/span>,$L<\/span>)<\/span>;$E<\/span>||=.01<\/span>       ;for(<\/span>$i<\/span>=0<\/span>;$i<\/span><=abs$E<\/span>;$i<\/span>++ )<\/span>{<\/span> $D<\/span>->{<\/span>$K<\/span>\r\n                  +int<\/span>(<\/span>$i<\/span>*$F<\/span>\/$E<\/span>)<\/span>      }<\/span>->{<\/span>$I<\/span>+int<\/span>(<\/span>$i<\/span>*$G<\/span>\/$E<\/span>)<\/span>}<\/span>=1<\/span>}<\/span>}<\/span>sub<\/span> p{<\/span>$D<\/span>={<\/span>}<\/span>;$\r\n                 Z=$z<\/span>||.01<\/span>;map{<\/span>    $H<\/span>=$_<\/span>;$I<\/span>=$N<\/span>=j$H<\/span>;$K<\/span>=$O<\/span>=j$H<\/span>;while(<\/span>$H<\/span>)<\/span>{<\/span>$q<\/span>=ord<\/span>\r\n                substr<\/span>(<\/span>$H<\/span>,0<\/span>,1<\/span>,\"\"<\/span> )<\/span>;if(<\/span>42<\/span>==$q<\/span>)<\/span>{<\/span>$J<\/span>=j$H<\/span>;$L<\/span>=j$H<\/span>}<\/span>else<\/span>{<\/span>$q<\/span>-=43<\/span>;$L<\/span> =$q<\/span>\r\n              %9<\/span>;$J<\/span>=(<\/span>$q<\/span>-$L<\/span>)<\/span>\/9<\/span>;$L<\/span>=$q<\/span>-9<\/span>*$J<\/span>-4<\/span>;$J<\/span>-=4<\/span>}<\/span>$J<\/span>+=$I<\/span>;$L<\/span>+=$K<\/span>;a(<\/span>$I<\/span>,$K<\/span>,$J<\/span>,$ L)<\/span>;\r\n              (<\/span>$I<\/span>,$K<\/span>)<\/span>=(<\/span>$J<\/span>,$L<\/span>)<\/span>}<\/span>a(<\/span>$I<\/span>,$K<\/span>,$N<\/span>,$O<\/span>)<\/span>}<\/span>@_<\/span>;my$T<\/span>;map{<\/span>$y<\/span>=$_<\/span>;map{<\/span> $T<\/span>.=$D<\/span>->{<\/span>$y<\/span>}<\/span>\r\n              ->{<\/span>$_<\/span>}<\/span>?$\\:' '<\/span>}<\/span>(<\/span>-59<\/span>..59<\/span>)<\/span>;$T<\/span>.=\"\\n<\/span>\"<\/span>}<\/span>(<\/span>-23<\/span>..23<\/span>)<\/span>;print\"\\e<\/span>[H$T\"<\/span>}<\/span>$w<\/span>= eval<\/span>{<\/span>\r\n              require<\/span> Win32::Console<\/span>::ANSI<\/span>}<\/span>;$b<\/span>=$w<\/span>?'1;7;'<\/span>:\"\"<\/span>;(<\/span>$j<\/span>,$u<\/span>,$s<\/span>,$t<\/span>,$a<\/span>,$n<\/span>,$o<\/span>\r\n              ,$h<\/span>,$c<\/span>,$k<\/span>,$p<\/span>,$e<\/span>,$r<\/span>,$l<\/span>,$C<\/span>)<\/span>=split<\/span>\/}<\/span>\/,'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J'<\/span>.\r\n               'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\\RI'<\/span>.'}Tn*JQ]wRAI*JDnR8QAU}wT8KT'<\/span>.\r\n               ']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*'<\/span>.'JBI\/KI}T8@?PcdnfgVCBRcP'<\/span>.\r\n                '?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ\/IP['<\/span>.'wQ}*JWeOe{n*EERk8;'<\/span>.\r\n                  'J*JC}\/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U\/T*QJP?}*JSe*JCnTe'<\/span>.\r\n                   'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\\]3;U]Uq*PM[wV]W]WCT*DM*SJ'<\/span>.  'ZP[Z'<\/span>.\r\n                      'PZa[\\]UKVgogK9K*QJ[\\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE'<\/span>.  '[Z\\U'<\/span>.\r\n                        '{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\\k*JE+J+J5R5AI*EJ00'<\/span>.  'BCB*'<\/span>.\r\n                             'DMKKJIR[Q+*EJ0*EK'<\/span>;sub h{<\/span>$\\ = qw<\/span>(<\/span>% & @ x)<\/span>[<\/span>int<\/span>    rand<\/span>\r\n                              4<\/span>]<\/span>;map{<\/span>printf<\/span>  \"\\e<\/span>[$b;%dm\"<\/span>,int<\/span>(<\/span>rand<\/span> 6<\/span>)<\/span>+101<\/span>-60<\/span>*   (<\/span>$w<\/span>\r\n                               ||0<\/span>)<\/span>;system(<\/span>  \"cls\"<\/span>)<\/span>if$w<\/span> ;(<\/span>$A<\/span>,$S<\/span>)<\/span>=    (<\/span>$_<\/span>[<\/span>1<\/span>]<\/span>,   $\r\n                                _[<\/span>0<\/span>]<\/span>)<\/span>;(<\/span>$M<\/span>,   @,)<\/span>= split<\/span>  '}'<\/span>;for(<\/span>     $z<\/span>=256<\/span>\r\n                                ;$z<\/span>>0<\/span>; $z<\/span>   -=$S<\/span>)<\/span>{<\/span>$S<\/span>*=   $A<\/span>;p @,}<\/span>      sleep$_<\/span>\r\n                                [<\/span>2<\/span>]<\/span>;while   (<\/span>$_<\/span>[<\/span>3<\/span>]<\/span>&&(<\/span>$    z+=$ S)<\/span>       <=256<\/span>)<\/span>{<\/span>\r\n                                p@,}<\/span>}<\/span>(<\/span>\"\"<\/span>.   \"32}7D$j\"<\/span>     .\"}AG\"<\/span>.       \"$u}OG\"<\/span>\r\n                                .\"$s}WG\"<\/span>    .\"$t\"<\/span>,\"\"<\/span>      .\"24}(\"<\/span>        .\"IJ$a\"<\/span>\r\n                                .\"}1G$n\"<\/span>    .\"}CO$o\"<\/span>     .\"}GG$t\"<\/span>        .\"}QC\"<\/span>\r\n                                 .\"$h}\"<\/span>      .\"^G$e\"<\/span>    .\"})IG\"<\/span>          .\"$r\"<\/span>,\r\n                                 \"32}?\"<\/span>       .\"H$p}FG$e}QG$r\"<\/span>.          \"}ZC\"<\/span>\r\n                                 .\"$l\"<\/span>,          \"28}(LC\"<\/span> .\"\"<\/span>            .\"\"<\/span>.\r\n                                 \"$h}:\"<\/span>           .\"J$a}EG\"<\/span>.             \"$c\"<\/span>\r\n                                 .\"}M\"<\/span>             .\"C$k}ZG\"<\/span>.            \"$e\"<\/span>\r\n                                 .\"}\"<\/span>             .\"dG$r\"<\/span>,\"18\"<\/span>          .\"}(\"<\/span>\r\n                                .\"D;\"<\/span>            .\"$C\"<\/span>  )<\/span>}<\/span>{<\/span>h(<\/span>16<\/span>         ,1<\/span>,1<\/span>,0<\/span>\r\n                               )<\/span>;h(<\/span>8<\/span>,          .98<\/span>,0<\/span>,0<\/span>   )<\/span>;h(<\/span>16<\/span>         ,1<\/span>,1<\/span>,1<\/span>)<\/span>\r\n                               ;h(<\/span>8.0<\/span>         ,0.98<\/span>,0<\/span>,     1<\/span>)<\/span>;         redo<\/span>}<\/span>###<\/span>\r\n                             #written                                 060204 by<\/span>\r\n                           #liverpole                                  @@@@@@@<\/span>\r\n                        #@@@@@@@@@@@<\/span><\/pre>\n
Si, ES UN SCRIPT DE Perl<\/strong><\/em><\/span>!  y tambi\u00e9n pueden descargarlo aqu\u00ed<\/a> , lo m\u00e1s interesante es ver la salida del comando. Ahora me ha quedado muy claro que perl es facil\u00edsimo de interpretar \ud83d\ude10<\/p>\n","protected":false},"excerpt":{"rendered":"
Recientemente vagando en el Internet me hall\u00e9 el siguiente script de perl con forma de camello: # sub j(\\$){($ P,$V)= @_;while($$P=~s:^ ([()])::x){ $V+=(‘(‘eq$1)?-32:31 }$V+=ord( substr( $$P,0,1,””))-74} sub a{ my($I,$K,$ J,$L)=@_ ;$I=int($I*$M\/$Z);$K=int( $K*$M\/$Z);$J=int($J*$M \/$Z);$L=int($L*$M\/$Z); $G=$ J-$I;$F=$L-$K;$E=(abs($ G)>=abs($F))?$G:$F;($E<0) and($ I,$K)=($J,$L);$E||=.01 ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K +int($i*$F\/$E) }->{$I+int($i*$G\/$E)}=1}}sub p{$D={};$ Z=$z||.01;map{ $H=$_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord substr($H,0,1,”” );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q %9;$J=($q-$L)\/9;$L=$q-9*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L); ($I,$K)=($J,$L)}a($I,$K,$N,$O)}@_;my$T;map{$y=$_;map{ $T.=$D->{$y} ->{$_}?$\\:’ ‘}(-59..59);$T.=”\\n”}(-23..23);print”\\e[H$T”}$w= […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[84],"class_list":["post-205","post","type-post","status-publish","format-standard","hentry","category-linux","tag-perl"],"_links":{"self":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/205"}],"collection":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=205"}],"version-history":[{"count":5,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/205\/revisions"}],"predecessor-version":[{"id":210,"href":"https:\/\/vostorga.org\/index.php?rest_route=\/wp\/v2\/posts\/205\/revisions\/210"}],"wp:attachment":[{"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=205"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=205"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vostorga.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=205"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}