Hallo zusammen

Ich habe in einem Textfile folgende Zeichenkette:
2011-03-01_09:41.50;2011-03-01_09:44.37

Daraus möchte ich machen:
2011-03-01;09:41.50;2011-03-01;09:44.37

Leider kann ich nicht einfach den underscore durch Strichpunkt ersetzen, da weiter hinten auf der Zeile noch weitere underscores vorkommen..

Ich brauche etwas in dieser Art:
my $find7 = '\d\d_\d\d';
my $replace7 = '\d\d;\d\d';
s/$find7/$replace7/ig;

Also ein Test, wo zwei Zahlen danach Underscore und dann nochmals zwei Zahlen kommen.
Aber dieser Code gibt mir dann das zurück:
2011-03-\d\d;\d\d:41.50;2011-03-\d\d;\d\d:44.37

Wie bringe ich Perl dazu, dass mir statt die \d, die ursprünglichen Zahlen wieder rausgibt?

Vielen Dank für eure Hilfe.

Gruss,
David
Last edited: 2011-03-01 13:59:08 +0100 (CET)