Re: ASCII art from sourcecode as image

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
-- 
....Christian.Garbs....................................https://www.cgarbs.de
Murphy's Laws of Combat:
20. Never forget that your weapon is made by the lowest bidder.