regex - 如何使用 Perl 进行模式匹配

Question

我有变量a:b:c a:b:d c:d:e并且我需要将输出显示为a-b a-b c-d

我尝试下面的代码

$res="A:B:C A:B:D C:D:E";

$res=~s/\:/\-/g;

$res=~s/..$//mgs;
print "$res\n";

但是我没有收到输出

Answer 1

use strict;
use warnings;
$res = "A:B:C A:B:D C:D:E";
$res =~ s{([a-z]):([a-z]):[a-z]}{$1-$2}ig;