X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,d9498d9f0aab9deb
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2001-09-07 04:46:40 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!193.162.153.118!news.tele.dk!not-for-mail
From: "CeeJay" <newsgroups@ceejay.cjb.nOt>
Newsgroups: alt.ascii-art
References: <3baa0398.0109042226.26fd6146@posting.google.com>
 <9n6o0c$g1v$1@qnsgh006.europe.nortel.com>
 <slrn9pek9l.pks.Faux_Pseudo@faux.cx936102-a.fed1.sdca.home.com>
 <7ZYAMCAmJ7l7EwqD@zaynar.demon.co.uk>
Subject: Re: camel
Date: Fri, 7 Sep 2001 13:47:03 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Lines: 65
Message-ID: <3b98b39d$0$89043$edfadb0f@dspool01.news.tele.dk>
Organization: TDC Internet
NNTP-Posting-Host: 62.243.165.90
X-Trace: 999863198 dread02.news.tele.dk 89043 62.243.165.90
X-Complaints-To: abuse@post.tele.dk
Xref: archiver1.google.com alt.ascii-art:7351

> 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.