zeichenkette gruppieren

zeichenkette gruppieren

am 25.08.2006 09:32:34 von Scotter

hallo

ich sollte eine zeichenkette gruppieren:

alus tttttttttttttttttttt
wird ttttt-ttttt-ttttt-ttttt

gibt es eine eleganterer (und vor allen kürzere)
Lösung als substr()?

irgendwie mit $1 $2 $3 $4?


greets
-/--\-
alex

Re: zeichenkette gruppieren

am 25.08.2006 10:20:04 von unknown

Post removed (X-No-Archive: yes)

Re: zeichenkette gruppieren

am 25.08.2006 20:26:27 von Christian Winter

Martin Trautmann schrieb:
> On Fri, 25 Aug 2006 09:32:34 +0200, Alex Kainz wrote:
>>
>> ich sollte eine zeichenkette gruppieren:
>>
>> alus tttttttttttttttttttt
>> wird ttttt-ttttt-ttttt-ttttt
>>
>> gibt es eine eleganterer (und vor allen kürzere)
>> Lösung als substr()?
>>
>> irgendwie mit $1 $2 $3 $4?
>
> s/(.{5})(.{5})(.{5})(.{5})/$1-$2-$3-$4/
>
> Vermutlich geht's noch einfacher, aber das sollte erst mal taugen,

Eine Möglicheit:
s/[^-]{5}(?!$)/$&-/g;

MfG
-Christian

Re: zeichenkette gruppieren

am 26.08.2006 09:02:23 von Scotter

> s/(.{5})(.{5})(.{5})(.{5})/$1-$2-$3-$4/
>
> Vermutlich geht's noch einfacher, aber das sollte erst mal taugen,
> Martin

danke, das ist super kurz und vor allem übersichtlich!

greets
-/--\-
alex

Re: zeichenkette gruppieren

am 28.08.2006 21:52:56 von Steffen Panning

Christian Winter wrote:
> Eine Möglicheit:
> s/[^-]{5}(?!$)/$&-/g;
>

Hallo Christian, das funktioniert zwar,
aber enthaelt $& und das ist ein performance killer, der sich auf die
performance _aller_ regex-auswertungen in dem Programm auswirkt.

Siehe perldoc perlre

besser waere s/([^-]{5})(?!$)/$1-/g;

greets Steffen