On 4/6/07, D. Bolliger <[EMAIL PROTECTED]> wrote:
snip
$ perl -nle 'print join " ", map ucfirst, map lc, split' < in.txt > out.txt
snip

There is no need to have multiple maps and the @ARGV/<> trick handles
files as well as stdin, so there is no need to use <

perl -lne 'print join " ", map { ucfirst lc } split' in.txt > out.txt

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to