Community  »  Perl: Allgemeines Forum

Stringanalyse	Seitenanfang
Hallo, ich hab ein kleines Problem. Und zwar würde ich gerne folgenden String: HalloIchBinEinXYZStringTESTTest in: Hallo Ich Bin Ein XYZ String TEST Test umwandeln. Immer wenn ein Großbuchstabe kommt beginnt ein neues Wort. Bei mehreren Großbuchstaben in folge gillt der letzte als anfang des neuen Wortes. Ich zerbreche mir schon lange den Kopf, komme aber einfach nicht drauf. Wäre über Hilfe sehr dankbar. Datum: 06.02.2007-16:10
re: Stringanalyse	Seitenanfang
Ich weiss nicht wie man es mit einer regexp hin bekommt, das hier sollte aber gehen. #!/usr/bin/perl print str_replace( 'HalloIchBinEinXYZStringTESTTest' ); sub str_replace { my $str=shift; $str =~ s/([A-Z]+)/ \1/g; $str =~ s/([A-Z][a-z])/ \1/g; $str =~ s/\s{1,}/ /g; $str =~ s/^\s|\s$//g; return $str; } Datum: 06.02.2007-21:32
re: Stringanalyse	Seitenanfang
Wow, das ist ja echte Spitzenklasse. Vielen vielen Dank. Du bist genial. Gruß Benni Datum: 07.02.2007-08:22