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

[FWP] TPJ One-Liner #39



How could the following one-liner (#39) from the latest Perl journal be
improved?

perl -ne 'push@w,/(\b[A-Z]\S*?\b)/g;END{print"@w"}'


Ronald


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