Johnny Lee (Snicker)

Hey all,

I was flipping through the channels on the radio the other day and Perl popped up from the back of my brain. I had a good chuckle, so I thought I'd share it. (Yes, I know it's silly)


$sites = 'All the wrong places';
&looking

sub looking

{ 

if ($sites =~ m/Love/)
   {
   &Bless_the_day
   }
else
   {
   &looking
   }

}
[download]

- Hutch

Comment on Johnny Lee (Snicker) Download Code

Replies are listed 'Best First'.

Re: Johnny Lee (Snicker)
by Hero Zzyzzx (Curate) on Feb 28, 2004 at 19:33 UTC

. . . in too many namespaces? . . .

Very good. I like it!

-Any sufficiently advanced technology is
indistinguishable from doubletalk.

My Biz

[reply]

Buckwheat (Snicker)
by PodMaster (Abbot) on Feb 29, 2004 at 17:20 UTC

$sites = 'All da wong paces';
&wooking

sub wooking

{ 

if ($sites =~ m/Nub/)
   {
   &Bless_the_day
   }
else
   {
   &wooking
   }
}
[download]

update:

BrowserUk

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]

Re: Johnny Lee (Snicker)
by flyingmoose (Priest) on Feb 29, 2004 at 17:52 UTC

bless my $self={}, Highwayman;
foreach (@coachroads) { $self->ride($_); }
$self->attach(Sword->new()); $self->attach(Pistol->new());
$self->trade()->take($maid->{baubles});
$self->blade()->take($man->{lifeblood});
wait_until_spring_of_twenty_five; # FIXME: dates pre 1970 not supporte
+d on UNIX so this is needs a better implementation
$bastards->hang($self); # assume Lawmen or subclass thereof, side effe
+ct uses Acme::Damn to unbless Highwayman instance
bless $self, Highwayman; # still alive
[download]

I have no idea why I just wrote this, somebody please stop me before it's too late. I'll leave the Kris, Johnny, and Waylon parts to someone else.