Johnny B.: Frage zu RegEx

Beitrag lesen

Hallo Beat,

Dann erledige das in einem separaten Schritt.

so?

my $tel = '0 (1 77) / 987 65 43';  
$tel =~ s/(\d)[()\/\- ]+(\d)/$1$2/g;  
$tel =~ s/(\d)[()\/\- ]+(\d)/$1$2/g;

Führt zwar zum gewünschten Ergebnis, sieht ziemlich unelegant und auch fehleranfällig aus...

Gruß, JOhnnY