Re: [FWP] TPJ One-Liner #39

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

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

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