[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] Kill 'em all and let God sort it out



Suddenly, pmh@edison.ioppublishing.com uttered:
> On Wed, 14 Mar 2001 16:50:59 +0000, Michael G Schwern wrote:
> > (This requires some artistic license on the return value of kill...)
> >
> > # "Kill them all and let God sort them out"
> > print sort God kill 9, @ARGV;
> >
> > # Bonus points if you can figure out this one.
> > print grep { ref and ref !~ /^[A-Z]$/ } kill 9, @ARGV;
>
> Kill them all and...
>   the horses they rode in on?
>   forget the short ones?

Kill all referees, except those with letters of referral?


- Salve, shooting in the dark

-- 
#!/usr/bin/perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print#  Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':4@,$'.#     <sjn@foo.no>
'2!--"5-(50P%$PL,!0X354UC-PP%/0\`'."\n"));eval "&{'@_'}";   __END__ is near! :)


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe