Pony!
I've uploaded a new version of Pony.pm to CPAN. It fixes a bug in the scaling algorithm and also stores the original data RLE encoded, thus cutting the size of the module from 100K to 17.5K. -- David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david/ This is a signature. There are many like it but this one is mine. ** I read encrypted mail first, so encrypt if your message is important ** PGP signature
Re: Buffy riding a pony!
May I forward your post to one of my company's internal humour/perl lists? -- mike
Buffy riding a pony!
I was bored today, so I wrote an ickle module which takes code like this: use Pony; print "Hello world!\n"; and turns it into use Pony; b UfFy buffy buFFYb uFfyBUF fYbuFfY BufFYBuF FybuFfY BUffyb ufFybuF fy bUffybuFf yBu F fYbuFFybuFFyBUffy BUfFYbUFFYbUFfybuffY bu FFYbUFFyBUFFyBUffYb uF FYbufFYbUFfybUffYB uFfybuFfybuFFYbUff YBUfFYbuFfybUffY B uFFYbufF y Buf fyb UfF ybu f FYB UFf Y b U FF Y B u F f Y b U f f yBufFYBufFybuFfybUfFYBUFfYbUFFYBuFf I am very very sorry. It's all Damian's fault. He 'inspired' me to do this after his talk on Bleach. The pony is scalable, and it will handle up to about 5000 characters of code (I only wrote the code for scaling it down, couldn't be arsed with scaling up). The module has a 100Kb ASCII-art pony embedded in it (derived from an XPM which was swiped from the web pages of the American Shetland Pony Club) which gets scaled to the right size and then we substitute code which has been encoded a-la-Buffy.pm. Because the scaling can't be exact, it either gets padded with garbage at the end or we draw a line underneath the pony for it to stand on. To execute, it throws away all the whitespace and then decodes exactly the same as Leon Brocard's 'Buffy' module. I'll put it on CPAN soon. Future enhancements (yeah right): Use RLE to compress the 100Kb of ASCII-art; or if I can figger it out, store it as arbitrarily scalable vectors; scaling up -- David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david/ This is a signature. There are many like it but this one is mine. ** I read encrypted mail first, so encrypt if your message is important ** PGP signature
Re: Buffy riding a pony!
That's the most addled thing I've seen for a long, long time. Congratulations! .robin.
Re: Buffy riding a pony!
* at 02/04 16:26 +0100 David Cantrell said: I was bored today, so I wrote an ickle module which takes code like this: we're less than half way through damian's year and already this sort of thing is becoming very common. i'm beginning to think that YAS didn't think the idea through carefully enough... or do we suppose this is just an unfortunate side effect of letting too many london.pm members talk to each other? struan
Pony
Although I didn't make it to the pub after Damian's talk I did hear from my sources that someone thought it would be 'useful' to convert Bleach.pm to print pony instead. So here it is Pony.pm, it isn't quite the same as Bleach but it produces a similar result. Enjoy, Matt package Pony; $VERSION = '1.00'; # MSR - 28 Feb 2001 $magic = "pony " x 4; sub pony { local $_ = unpack("b*", pop); s/0/ /g; s/1/pony/g; $magic.$_ } sub depony { local $_ = pop; s/^$magic//; s/pony/1/g; s/ /0/g; pack("b*", $_) } open 0 or die; ($script = join("", 0)) =~ s/^(.*^use\s+Pony\s*;\s*?\n)//sm; $header = $1; do { eval depony($script); exit } if ($script =~ /^$magic/); open(0, "$0") or die; print {0} $header.pony($script);
Pony and Buffy (was Re: Mailing List Stuff)
On Fri, 2 Feb 2001, Michael Stevens wrote: On Fri, Feb 02, 2001 at 12:34:15PM +, Robin Houston wrote: what is it with ponys? I've wondered that too. Seems to be a #perl obsession... purl pony [purl] pony is replyGimme a Pony! Pony! Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Michael Obviously one good meme deserves another: - *dipsy* buffy? *dipsy* trelane: wish i knew *dipsy* purl knew: buffy is reply I want BUFFY! Buffy! Buffy! Buffy! Buffy +Buffy Buffy! Buffy Buffy Buffy! Buffy Buffy Buffy! Buffy Buffy Buffy! Okay, own up, who was this ;-) ? And more importantly, who told dipsy to forget Buffy... -- print "\n",map{my$a="\n"if(length$_6);' 'x(36-length($_)/2)."$_\n$a"} ( Name = 'Mark Fowler',Title = 'Technology Developer' , Firm = 'Profero Ltd',Web = 'http://www.profero.com/' , Email = '[EMAIL PROTECTED]', Phone = '+44 (0) 20 7700 9960' )