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

theresa

2008-01-17 17:24

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

Wie geht das am Besten? Hab einen String "vorname nachname" und will daraus "Vorname Nachname" machen.

Danke!

renee

2008-01-17 17:31

User since
2003-08-04
14371 Artikel
ModeratorIn

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;

Code (perl): (dl )

1
2
3

my $string = "vorname nachname";
$string = join " ", map{ ucfirst $_ }split / /, $string;
print $string;

...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

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

renee

2008-01-17 20:14

User since
2003-08-04
14371 Artikel
ModeratorIn

Stimmt, an \U habe ich überhaupt nicht gedacht...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

theresa

2008-01-18 16:34

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

Läuft prima :) vielen Dank noch mal

ptk

2008-01-19 13:08

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Alternativ kann man auch mit Unicode-Properties arbeiten:

Code: (dl )

use encoding 'iso-8859-1';
my $string = "vorname nachname ähhh";
$string =~ s/\b(\p{IsAlpha})/\U$1/g;
print $string;