Problem mit regulärem Ausdruck (Allgemeines zu Perl)

[thread]7108[/thread]

Problem mit regulärem Ausdruck

Gast Gast

2005-07-05 16:55

Hallo zusammen,

ich bräuchte einen regulären Ausdruck, der mir in einem String alle mehrfach vorkommenden Semikolons durch ein einfaches ersetzt. Dabei könnten zwischen den Semikolons auch Leerzeichen sein.

Anders ausgedrückt: Ich habe E-mail-Adressen die durch ";" getrennt sind. Falls zwischen zwei ";" nichts steht ausser leerzeichen sollen diese gelöscht werden bis auf eins.

Ich komm da einfach nicht weiter...

Vielen Dank schon mal

Gruß
Marco

Ronnie

2005-07-05 16:57

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

s/;\s*;/;/g;

Relais

2005-07-05 17:00

User since
2003-08-06
2246 Artikel
ModeratorIn

Code: (dl )

s/(?:;\s*)*;/;/;

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

Gast Gast

2005-07-05 17:27

Vielen Dank!

Die Lösung von Ronnie funktioniert einwandfrei!

@Relais: Wenn ich deine Lösung verwende funktioniert mein komplettes Skript nicht mehr! :) Frag mich aber nicht warum, keine Ahnung!
Trotzdem Danke!

Gruß
Marco

pKai

2005-07-05 18:50

User since
2005-02-18
357 Artikel
BenutzerIn
[default_avatar]

[quote=n0bbi,05.July.2005, 15:27]Die Lösung von Ronnie funktioniert einwandfrei![/quote]
Naja, ich würde gemäß Aufgabestellung die Lösung von Relais vorziehen

Code: (dl )

>perl
my $s = 'abc;  ;  ;  ;def';
$s =~ s/;\s*;/;/g;
print "RE1", $s, $/;
$s = 'abc;  ;  ;  ;def';
$s =~ s/(?:;\s*)*;/;/;
print "RE2", $s, $/;
^Z
RE1abc;  ;def
RE2abc;def

Edit: Fehlte die Neuzuweisung an $s vor RE2-Anwendung. Ausgabe bleibt aber gleich ;)\n\n

I sense a soul in search of answers.

View all threads created 2005-07-05 16:55.