regex - 交换值

Question

我想知道是否有一种简单/干净的方法可以如下交换值，也许使用单个正则表达式/替换？

如果 $a 以“x”结尾，则将其替换为“y”。同样，如果 $a 以“y”结尾，则将其交换为“x”:

$a = "test_x";

if ($a =~ /x$/) {
  $a =~ s/x$/y/;
} else {
  $a =~ s/y$/x/;
}

我只能想到这样的事情:

$a = $a =~ /x$/ ? s/x$/y/ : s/y$/x/;

Answer 1

这很简单:

$a =~ s/x$/y/ or $a =~ s/y$/x/;

进行一场比赛来看看是否应该进行替换几乎总是多余的。

另一种方式:

substr($a,-1) =~ y/xy/yx/;