Re: This is not a question ... call me slow if you like...

In alt.ascii-art, Ilmari Karonen  <use...@itz.pp.sci.fi> wrote:
> In article <3B7...@earthlink.net>, Benjamin Goldberg wrote:
> >And using just uuencoding works even better, and doesn't require an
> >external module:
[snip]
> Clever.  Let's see if a fancier font can be made to work:
> y/n/\n/,s/\d+/$"x$&/eg,print for qw'n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3
> -_)2_|n\__/\_,_|___/\__|2\__,_|_|1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_
> )2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n'

Which perl? 5.6.0 is giving me "Modification of a read-only value attempted
at - line 1" for that.

I've got this old one, for 5.6.0 or higher, a bit ugly at 5 lines:

@a=([42.110.0.76.78.174.192,42.132.0.170.164.168.160,42.68.0.234.164.236.192,
170.36.0.170.164.168.160.0,68.196.0.170.68.174.160,],,[206.200.0.164.106.236,
,,168.168.0.170.138.138.0,,204.200.0.238.140.204.0,,136.168.0.170.138.138.0,,
142.174.0.170.106.234,],);$/=v36;for$a(@a){for$b(@$a){eval"$/_=sprintf('%vb',
'$b');$/\\=v10";s/\d+/sprintf"%08d",$&/ge;tr;.;;d;tr;10;* ;;print}print q,,};

And years ago I wrote this (in c):

/* if(TERM==ANSI) {cc -Dc=`"\e[32m"` sig.c} else {cc -Dc=\"\" sig.c} */
e(int d){printf("%c",d);}main(){int a=0,b;for(b=141596885;b>8;b>>=4)e(97-(
b>>22)+(b&15));puts(c);for(;a<128;){b="}////+c)cy////*494y////*979y///+e*"
"959*ey///*I5Q*939*I5Qy///*96bI3Qb69y///*!777!y///*Y6kIql6Yy///*A5q+9!,A5"
"9y///+m,YQ-my////-iq~y"[a++];for(;7&b;e("Eli!: MV?JL1m\"P\n"[b-->>3]));}}

Which I see can be converted reasonably well to perl:

sub e{printf"%c",shift}for($b=141596885;$b>8;$b>>=4){&e(97-($b>>22)+($b&15))}$
_="}X/+c)cyX/*494yX/*979yX+e*959*eyX*I5Q*939*I5QyX*96bI3Qb69yX*!777!yX*Y6kIql"
."6YyX*A5q+9!,A59yX+m,YQ-myX/-iq~y";s:X:///:g;@b=/./g;$_=qq'Eli!: MV?JL1m"P\n'
;@e=/./sig;for($a=0;$a<128;){$b=ord$b[$a++];for(;$b&7;){&e(ord$e[($b-->>3)])}}

Elijah
------
#!/usr/bin/perl -w
use Shell;
print(figlet(qw(Just Another Perl Hacker)));
__END__

Related ASCII art in the Gallery

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

(\  _  /)
( \( )/ )
(       )
 `>   <' 
 /     \ 
 `-._.-' 

(‘-‘)

   _
 _(_)_
(_)@(_)
  (_)\
     |
    \|/
  \\\|//jgs
^^^^^^^^^^^

    \\__  o
|\/    o\  o
>       < o
|/\   __/
    //

 |\__/,|   (`\
 |_ _  |.--.) )
 ( T   )     /
(((^_(((/(((_/

  , _ ,
 ( o o )
/'` ' `'\
|'''''''|
|\\'''//|
   """

Make your own ASCII art

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