Re: camel

> And here's another Perl camel, copied from
> http://www.perl.com/CPAN-local/misc/japh :
>
>
> #!/usr/bin/perl -w
> 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
>

Camels AFAIK have TWO humps , so neither of theese perlscripts show camels.
They show that other kind of camellike being with only one hump which english
name eludes me at the present time.

Hmm since the dansih word is dromedar and I can find the word dromedary in the
source I'm guesssing the english name is dromedary.

Btw what does THIS script show when executed ?

A quick look tells me that since the source contains words such a camel and
dromedary and camelhumps it is some sort of wordplay or educational lessson
explain that this is really a dromedary since it only have one hump ..
But that's just a guess.

Related ASCII art in the Gallery

Explore these categories from our collection of 11,000+ artworks:

a'!   _,,_
  \\_/    \.-,
   \, /-( /
   //\ //\\jrei

Make your own ASCII art

Turn images, text or 3D into ASCII, or draw your own – right in your browser.