nicht angemeldet
hi!
Naja, eigentlich schon, aber 'patschert' ist es trotzdem:
($straße,$hausnummer) = split(/\s*([0-9]+)/,$wohnort,2);
Hm, ich würde ein "look ahead"-Pattern dafür verwenden. Dann hat man
den Nachteil der Spezial-Bedeutung von Klammern bei split() umgangen,
indem man ein Standard-Feature der regulären Ausdrücke von Perl
verwendet. Würde dann so aussehen:
($straße, $hausnummer) = split /(?=[0-9])/, $wohnort, 2;
Das bedeutet, _vor_ jedem Vorkommen einer Ziffer wird aufgesplittet,
ohne die Ziffer selbst als Separator zu betrachten.
bye, Frank!