Worte trennen - #82868 (Allgemeines zu Perl)

Crian

2004-06-01 15:26

User since
2003-08-04
5871 Artikel
ModeratorIn

[quote=havi,01.06.2004, 13:21]Hallo!

Ich muss Worte nach GROSSklein-Schreibung trennen.

Das ganze sieht wie folgt aus:
GernotHavranek # Ergebnis sollte Gernot Havranek sein
dasIst Havi # das ist Havi

Gruss
Gernot[/quote]
'GernotHavranek' -> 'Gernot Havranek'
'dasIst Havi' -> 'das Ist Havi'

?

Code: (dl )

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

my @words = ('GernotHavranek', 'dasIst Havi');

print "'$_'\n" for @words;

s~(?<=[a-zäöüß])(?=[A-ZÄÖÜ])~ ~g for @words;

print "'$_'\n" for @words;

Ausgabe:

Code: (dl )

'GernotHavranek'
'dasIst Havi'
'Gernot Havranek'
'das Ist Havi'

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite