nicht angemeldet
Hallo
Hallo,
ich suche nach einer Möglichkeit, immer den ersten Buchstaben jedes Wortes durch einen Großbuchstaben zu ersetzen. Habe dazu bisher leider nichts finden können.
$text = "BLA_BLA_BLA_BLA";
$text = lc($text);
[s/// und RX]
Kann mir da jemand helfen?
I hope so. :)
Es gibt die Funktion ucfirst() (perldoc -f ucfirst), die genau dafür gedacht ist. Vermutlich möchtest Du aber vorher die einzelnen Worte aus Deiner Zeichenkette extrahieren, indem Du diese evtl. an [^a-zA-ZäöüÄÖÜ]+ split()test (perldoc -f split).
Imho etwas umständlich und ins Blaue hineingedacht wäre folgender Einzeiler:
print join '', map { ucfirst } split /([^a-zA-ZäöüÄÖÜß]+)/, lc 'BLA_BLA_BLA_BLA';
Wenn die Worte mit Umlauten beginnen, musst Du evtl. mit "use locale;" arbeiten und den lokalen Zeichensatz umschalten (perldoc perllocale).
Gruß Alex
--
http://www.google.de/search?hl=de&safe=off&q=Rechtschreibung+Standart