Zeichenfolge in runden Klammern

Question

Ich habe einen Ausdruck, der wie folgt aussieht:

when v(a.b.c.d.e.f.g) = v(m.n.o.x.y.z) 

Ich brauche die endgültige Ausgabe zu sein:

when v(a.b^c^d^e^f:g) = v(m.n^o^x^y:z) 

Einfach gesagt, wie kann ich jedes ". ersetzen "durch" ^ "beginnend mit dem zweiten Auftreten von" . "in jedem Ausdruck zwischen v();, während der letzte" . "durch" : "in jedem Ausdruck zwischenersetzt wird? Beide v() Ausdrücke erscheinen in derselben Zeile.

Ich habe versucht, die folgenden:

setenv test "when v(a.b.c.d.e.f.g) = v(m.n.o.x.y.z)" 

echo $test | awk -F"(" '{for(i=2;i<=NF;i++){if($i~/\)/){sub(").*","",$i)};print $i}}' | \ 
    sed -E 's/\./\^/g2' | sed 's/\(.*\)\^/\1\:/' 

Dies ergibt folgendes:

a.b^c^d^e^f:g 
m.n^o^x^y:z 

ich wissen muss, wie man nach, dass ich die ursprüngliche Aussage mit dem modifizierten Text oben ersetzen kann, so dass, wenn endlich wie folgt aussehen wird:

when v(a.b^c^d^e^f:g) = v(m.n^o^x^y:z) 

ich habe versucht, die folgende

$ENV{"str"} = "when v(a.b.c.d.e.f.g) = v(m.n.o.x.y.z)"; 

$str =~ s{(\w(\w\.)(.*?)\.(\w))}{ 
    my ($first, $temp, $last) = ($1, $2, $3); 
    $temp =~ s/\./^/g; 
    $first . $temp . ':' . $last 
}ge; 

system('echo $str'); 

aber es hat nicht funktioniert = (

Irgendwelche Ideen?

Answer 1

In den Kommentaren haben Sie gesagt, dass die Zeichenfolge in einer Datei sein sollte. Hier ist ein Beispiel, illustriert diesen Fall:

use strict; 
use warnings; 

my $file_name = 'test.txt'; 

open (my $fh, '<', $file_name) or die "Could not open file '$file_name': $!"; 

my $str = do { local $/; <$fh> }; 
close $fh; 

$str =~ s{(\w\(\w+\.)(.*?)\.(\w+\))}{ 
    my ($first, $temp, $last) = ($1, $2, $3); 
    $temp =~ s/\./^/g; 
    $first . $temp . ':' . $last}ge; 

print $str; 

Zuerst haben wir den Inhalt der Datei test.txt in den String $str lesen. Dann machen wir den Ersatz. Und schließlich das Ergebnis ausdrucken.