Re: [FWP] TPJ One-Liner #39

["Edward M. Perry" <eperry@learjet.com>]

> 
> On Thu, Jul 08, 1999 at 02:15:54PM -0500, Edward M. Perry wrote:
> > > I'm quite sure it can be solved, but at the price of code bloat! :-)
> > 
> > You can fix that pesky final character with a mere 16 characters of 
> > bloat (~ 40%), and a rewrite: 
> > 
> > perl -ne'push(@a,/\b[A-Z]\w*/g);END{print join($",@a)}'
> > 
> > Fun anyone?
> 
> 16 characters?  Surely you jest!  It only takes 6 characters:
> 
> perl -ne'push@a,/\b[A-Z]\w*/g;END{print"@a"}'
> 
> "@a" is equivalent to join($", @a).
> 
> 
> Ronald

AAARRRRGHHHH!


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