How to capitalise ONLY the first letter in Perl

resetreset · 01-10-2009, 10:42 AM

Hello,
First of all, apologies to anyone who wrote anything in the last thread I posted about this (if you aren't one of them, just ignore that).

I want to capitalise ONLY the first letter in a string that I have, eg: I want "a pound of pigs" to turn into "A Pound Of Pigs", but *also* "a pOuND oF PigS" to turn into "A Pound Of Pigs" - how do I do that?

Thanks.

Mega Man X · 01-10-2009, 11:15 AM

Quote:

Originally Posted by resetreset

Hello,
I want to capitalise ONLY the first letter in a string that I have, eg: I want "a pound of pigs" to turn into "A Pound Of Pigs",

Thanks.

$line =~ s/\b(\w)/\U$1/g;

Quote:

Originally Posted by resetreset

but *also* "a pOuND oF PigS" to turn into "A Pound Of Pigs" - how do I do that?

$line =~ s/(\w+)/\u\L$1/g;

Note: I am not a perl programmer

Telemachos · 01-10-2009, 11:15 AM

Here's one way:

Code:

#!/usr/bin/env perl
use strict;
use warnings;

my $string = "a pound of pigs\n";
$string =~ s/(\w+)/\u\L$1/g;

print $string;

Check out the perl documentation on the string escapes \U, \u, \L, \l and the functions uc, lc, ucfirst and lcfirst.

Hah! MegaManX beat me to it, by just that much.

Mega Man X · 01-10-2009, 11:19 AM

LOL, what a timing Telemachos

Our code matches, always a good sign, hehe