在更換圓括號之間串

Question

我有一個看起來像這樣的表達式：

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

我需要的最終輸出是：

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

簡單地說，我怎麼可以相互替換「. 「在v();之間的每個表達中從第二次出現的」.「開始的」^「開始，而在之間的每個表達中用」:「代替最後的」.「？兩個v()表達式都顯示在同一行上。

我試過如下：

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\:/' 

這給出了以下：

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

我需要知道如何在那之後我可以用修改後的文本替換上述原來的語句，因此如果最後看起來像這樣：

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

我試過以下

$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'); 

，但它沒有工作=（

任何想法？

Answer 1

在評論，你說的那個字符串應該是在一個文件中。 下面是一個例子，說明情況：

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; 

首先我們先讀文件test.txt的內容轉換成字符串$str。然後我們做替換。最後打印結果。