Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Capitalize the 1st letter of each word

by atcroft (Abbot)
on Jan 15, 2004 at 19:56 UTC ( [id://321652]=note: print w/replies, xml ) Need Help??


in reply to Capitalize the 1st letter of each word

If you hit the Library, under Perl Functions, Alphabetical, you'll find ucfirst() and lcfirst(), which will upper- or lower-case (respectively) the first character of a given word. So you could do something along the lines of: 

my @array = qw( foo bar foobar barfoo 1 2 3 );

foreach my $i (0 .. $#array) {
    $array[$i] = ucfirst($array[$i]);
}

[download]

I suspect a regex in this case is actually overkill.... HTH....

Replies are listed 'Best First'.
Re: Re: Capitalize the 1st letter of each word
by mcogan1966 (Monk) on Jan 15, 2004 at 20:02 UTC
    Or even faster: 
    foreach (@array) { ucfirst($_); }

    [download]
    In this case, $_ will point to the actual element in the array.
[reply]
[d/l]

      Unfortunately, that doesn't work 

      my @words = qw[ the quick brown fox ];

foreach (@words) { ucfirst($_); };
Useless use of ucfirst in void context at ...

      [download]

      It would have to be 

      foreach (@words) { $_ = ucfirst($_); }

      [download]

      Or, more simple 

      $_ = ucfirst for @words;

print for @words;
The
Quick
Brown
Fox

      [download]
      Examine what is said, not who speaks.
      "Efficiency is intelligent laziness." -David Dunham
      "Think for yourself!" - Abigail
      Timing (and a little luck) are everything!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://321652]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2024-04-25 22:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found