在更换圆括号之间串

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。然后我们做替换。最后打印结果。