Re: Can I map this

[Igor Sutton Lopes]

On 2007/04/04, at 16:28, Beginner wrote:

while (<DATA>) {

 my @words = split(/\s+/,$_);
 my $str;
 foreach my $w (@words) {
        my $s = lc($w);
        $s = ucfirst($s);
        $str .= $s.' ';
 }
 print "STR=$str\n";
}

__DATA__
SOME NAME
SOMEONE WITH FOUR NAMES
ONE WITH THREE
A-HYPENED NAME

This was discussed sometime ago on Lisbon.pm :-)

<code>
while (<DATA>) {


    print "str = $str\n";

}

__DATA__
SOME NAME
SOMEONE WITH FOUR NAMES
ONE WITH THREE
A-HYPENED NAME
</code>

--
Igor Sutton
[EMAIL PROTECTED]

my $str = join( " ", map { s/\B(\w+)/\L\1/; $_ } split( /\s+/, $_ ) );

PGP.sig
Description: This is a digitally signed message part