Klein- in Großbuchstaben an bestimmten Stellen? - #104864 (Allgemeines zu Perl)

betterworld

2008-01-17 20:08

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

renee+2008-01-17 16:31:38--
Da gibt es mehrere Möglichkeiten:
Code (perl): (dl )
1
2
3
my $string = "vorname nachname";
$string =~ s/\b([a-z])/uc($1)/eg;
print $string;

Das kann man auch kuerzer (ohne /e) schreiben:

Code (perl): (dl )

1
2
3

my $string = "vorname nachname";
$string =~ s/\b([a-z])/\U$1/g;
print $string;

(Das ist wohl mal einer der Fälle, wo \U wirklich praktisch ist...)

Und wenn man dann auch noch Umlaute unterstützen will:

Code (perl): (dl )

use locale;

my $string = "vorname nachname öhhh";
$string =~ s/\b([[:alpha:]])/\U$1/g;
print $string;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class