pinguin

Hey Leute,

das hab ich irgendwann mal gefunden.. und wollte es
nur mal zeigen. Ich glaube aber es wurde nicht wirk-
lich per Hand gemacht... *g*

http://autsch.rtl.de/bitsteller/bit_zynixx/linux_penguin.html

Gru� Jens

"Jens Kammler" <zer...@goldmail.de> schrieb:

>das hab ich irgendwann mal gefunden.. und wollte es
>nur mal zeigen. Ich glaube aber es wurde nicht wirk-
>lich per Hand gemacht... *g*

Ist ja auch nicht umbedingt das, was man unter ASCII-Art versteht. Das
Bild ist erst durch einf�rben des Codes entstanden. Irgentwann ist
hier allerdings schon mal ein gecodetes Kamel gepostet worden...

/))
-- 
Es gibt zwei Grundsaetze fuer Glueck und Erfolg:
1. Erzaehle anderen nicht alles was du weisst.

David Dahlberg <D-M...@gmx.net> wrote:
> "Jens Kammler" <zer...@goldmail.de> schrieb:

>>das hab ich irgendwann mal gefunden.. und wollte es
>>nur mal zeigen. Ich glaube aber es wurde nicht wirk-
>>lich per Hand gemacht... *g*

> Ist ja auch nicht umbedingt das, was man unter ASCII-Art versteht. Das
> Bild ist erst durch einf�rben des Codes entstanden. Irgentwann ist
> hier allerdings schon mal ein gecodetes Kamel gepostet worden...

Kamel? Perl? Das da?

--snip--
#!/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
--snip--

Alles zwischen den --snips-- in eine Datei packen und die dann
ausf�hren. Von stdin l�uft das nicht.

so long,
Mitch
-- 
....Christian.Garbs.....................................http://www.cgarbs.de
Why waste time learning when ignorance is instantaneous?
                                                (Hobbes)