X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,d9498d9f0aab9deb
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2001-09-06 10:36:01 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!colt.net!dispose.news.demon.net!news.demon.co.uk!demon!zaynar.demon.co.uk!philip
From: Philip Taylor <philip@zaynar.demon.co.uk>
Newsgroups: alt.ascii-art
Subject: Re: camel
Date: Thu, 6 Sep 2001 18:29:10 +0100
Organization: Zaynar Productions
Distribution: world
Message-ID: <7ZYAMCAmJ7l7EwqD@zaynar.demon.co.uk>
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>
NNTP-Posting-Host: zaynar.demon.co.uk
X-NNTP-Posting-Host: zaynar.demon.co.uk:158.152.90.16
X-Trace: news.demon.co.uk 999797745 nnrp-14:3284 NO-IDENT
 zaynar.demon.co.uk:158.152.90.16
X-Complaints-To: abuse@demon.net
MIME-Version: 1.0
X-Newsreader: Turnpike Version 3.03a <iYfirxJDTC4cxpT9l8N57y$FY6>
Lines: 65
Xref: archiver1.google.com alt.ascii-art:7340

In article <slrn9pek9l.pks.Faux_Pseudo@faux.cx936102-a.fed1.sdca.home.co
m>, Faux_Pseudo <Faux_Pseudo@yahoo.comERCIAL> writes

>Now dose any one know of a programe that can translate this into
>readable perl?

What's wrong with
  print "Hello world";
:-)

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

-- 
Philip Taylor
philip @ zaynar . demon . co . uk

http://robowarriors.ultrastore.com/legoworld.shtml
  -- If the Earth was made of Lego...