Re: ASCII art from sourcecode as image

On 23/10/2021 19:58, Christian Garbs wrote:
> Eli the Bearded <*@eli.users.panix.com> wrote:
> 
>> $ cat ~/sigs/japh.I
>> #!/usr/bin/perl -w
>> use Shell;
>> print(figlet(qw(Just Another Perl Hacker)));
>> __END__
> 
> UUOP ;-)
> 
> I finally found an old one of mine:
> 
> ($a,$b,$c)=localtime time;sub a{int(31+sin($_[0]/57)*$_[1]).int(#[email protected]
> 31-cos($_[0]/57)*$_[1])}for(3..50){$i{a($b*6,$_/3)}++;$i{a($c*30%360+$b/2,$_/5)}
> ++}for(0..359){$i{a($_,19)}++;$i{a($_,16)}++if!($_%30)}for$y(6..26){for(11..52){
> print((' ','"','o','8')[(exists$i{$_.$y*2})*2+exists$i{$_.($y*2-1)}])}print"\n"}
> 
> I won't post the output, try to guess ;-)
> 
> Hint: The output changes regularly, you could run it in a loop like
> "while perl the_script.pl; do sleep 1m; done".
> 
> This still runs with a current Perl, even with -w enabled.
> 
> Best regards
> Christian
> 
a guess:
   a circular motion of an email-addy leaving a trail


the following looks like it could be the original camel?

originally posted by Philip Taylor:
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


-- 
     .
   ._!__  __ __
     / _\/_ |_ \!_
    / /    7 / /|
    \ \_ _/ /  \ .
     \_//__/|_\_\!_.
                 |