X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fa0ae,eb66a30df04c6a5c
X-Google-Attributes: gidfa0ae,public
X-Google-Thread: f996b,c41350f111057a73
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2001-08-20 18:08:11 PST
Path: 
 archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!isdnet!howland.erols.net!panix!news.panix.com!qz!not-for-mail
From: Eli the Bearded <eli@there-is-no-more-qzto.com>
Newsgroups: comp.lang.perl.misc,alt.ascii-art
Subject: Re: This is not a question ... call me slow if you like...
Date: 21 Aug 2001 01:08:08 GMT
Organization: Some absurd concept
Lines: 42
Message-ID: <eli$0108202107@qz.little-neck.ny.us>
References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk>
 <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net>
 <998164032.16642@itz.pp.sci.fi>
NNTP-Posting-Host: panix1.panix.com
X-Trace: news.panix.com 998356088 16887 166.84.1.1 (21 Aug 2001 01:08:08 GMT)
X-Complaints-To: abuse@panix.com
NNTP-Posting-Date: 21 Aug 2001 01:08:08 GMT
X-Files: Used for sharpening claws and teeth on your hawk and hacksaw
X-Motto: "Erosion of rights never seems to reverse itself." -- kenny@panix
X-US-Congress: Moronic Fucks.
X-Attribution: EtB
X-Usenet-II: Because it is time for October.
Encrypted: double rot-13
X-Newsreader: Sony Playstation 5.0MIPS
Xref: archiver1.google.com comp.lang.perl.misc:65308 alt.ascii-art:7035

In alt.ascii-art, Ilmari Karonen  <usenet11552@itz.pp.sci.fi> wrote:
> In article <3B7B7E29.E1423382@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__