Creative Commons License
Excepto donde se indique otra cosa, todo el contenido de este lugar está bajo una licencia de Creative Commons.
Taquiones > victor > crafts > Camiseta con el camello Perl

Camiseta con el camello Perl

Hace tiempo me hice una camiseta con el famoso camello de Perl que me quedó estupendamente (y sí, sé que tiene los derechos sobre la marca los tiene O'Reilly pero para mí siempre será la mascota de Perl), pero que perdí en una mudanza.

Ahora quiero recuperarla y me encuentro con que no recuerdo cómo lo hice. Sé que usé el código fuente citado arriba para imprimir en un papel especial y que lo apliqué en la camiseta, pero los pasos exactos son los que quiero recuperar aquí.

Para empezar tomemos el código fuente que quiero representar

#!/usr/bin/perl -w                                      # camel code
use strict;

                                        $_='ev
                                    al("seek\040D
        ATA,0,                  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(//,"\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
            ;^.*_;;;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

(del cual he guardado copia) en dos versiones, una grande en la espalda (perféctamente legible) y otra pequeña sobre el pecho.

PENDIENTE DE COMPLETAR