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

[abigail@foad.org]

On Thu, Mar 15, 2001 at 03:03:22PM +0000, Ian Phillipps wrote:
> On Thu, 15 Mar 2001 at 11:38:57 +0000, pmh@edison.ioppublishing.com wrote:
> > On Wed, 14 Mar 2001 16:50:59 +0000, Michael G Schwern wrote:
> 
> > > # 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?
> 
> Hmm... the 'ref !~ /^[A-Z]$/' bit sounds like 'no object', but I can't
> fill in the blank '.... no object'.


No object?

    $ perl -wle 'print ref bless []'
    main
    $


/^[A-Z]$/ matches strings that are just a single upper case letter.


Abigail

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