how to change all but first letters to small leters

[ogniemi]

what i need is to change:

QWERTYUIO
ASDFG
ZXCVBNM


with

Qwertyuio
Asdfg
Zxcvbnm

 

[duncdude]

in Perl?

[b]#!/usr/bin/perl[/b]

while (<DATA>) {
  print ucfirst lc($_);
}

__DATA__
QWERTYUIO
ASDFG
ZXCVBNM

Kind Regards
Duncan

 

[Annihilannic]

Presuming it's always going to be the first character on each line you want to convert to upper case, this should do it:

[tt]awk ' { print substr($0,1,1) tolower(substr($0,2)) } '[/tt]

Annihilannic.

 

[feherke]

Hi

Duncan, I see you still not use the [tt]perl[/tt]'s switches. I think they are pretty. A read, loop, maybe a print too, for free.

perl -ne 'print ucfirst lc' inputfile
[gray]# or[/gray]
perl -pe 's/(.)(.*)/uc($1).lc$2/e' inputfile

Feherke.

http://rootshell.be/~feherke/

 

[duncdude]

Nice one feherke! I'll have to do some reading...


Kind Regards
Duncan