[Perl] Hilfe bei RegEx (Zeichen ersetzen)

[bytebrain]

Hallo Zusammen,

ich habe hier eine für mich relativ harte Nuss zu knacken und ich hoffe, man kann mir helfen!

Ich habe einen String, der wahllos aus Buchstaben, Ziffern und Sonderzeichen (. , ; [] ") besteht. Diesen will ich aufbereiten, damit der String in ein Format umgewandelt wird, damit es für mein Perl-Script lesbar wird.

# String-Beispiel:

blabla123;dumdidum;"haha beispiel;sowas aber auch";hihi, nochmehr Text; Hallo Welt

In diesem Code-Beispiel findet ihr einen String, der von mir schon aufbereitet wurde. Einzigstes Problem: In dem Text, der zwischen "" steht, sollen alle Semikolone ( ; ) durch Kommas ersetzt werden.

Hat da jmd. eine Idee?

Vielen Dank!

bytebrain

[Mr Unix]

Hat da jmd. eine Idee?

Zerleg den String in seine Einzelteile und setz den den regulaeren Ausdruck nur auf den gewuenschten Teil ab. Z.B. so:

my $string = 'blabla123;dumdidum;"haha beispiel;sowas aber auch";hihi, nochmehr Text; Hallo Welt';

my @inside = ($string =~ m/([^"]+")([^"]+)(".+)\z/);


$inside[1] =~ s/;/,/g;

$string = join("", @inside);

[bytebrain]

Ei Servus!

Danke sehr, das ist ein sehr cooler Lösungsansatz. Wär ich gar nicht drauf gekommen

Danke und Grüße,

bytebrain

Manchmal sieht mal halt den Wald vor lauter Bäumen nicht.