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>) {
my $str = join( " ", map { s/\B(\w+)/\L\1/; $_ } split( /\s+/,
$_ ) );
print "str = $str\n";
}
__DATA__
SOME NAME
SOMEONE WITH FOUR NAMES
ONE WITH THREE
A-HYPENED NAME
</code>
--
Igor Sutton
[EMAIL PROTECTED]
PGP.sig
Description: This is a digitally signed message part
