regex - 在 Perl 正则表达式中替换部分单词

Question

给定这两个文本:

$mir1 = 'microRNA-9a';
$mir2 =  'microRNA10a';
$mir3 =  'microrna3a';

我想把它改成:

miR-9a
miR-10a
miR-3a

原则上，我想用 miR- 替换所有变异 microRNA 部分是否有任何单一的正则表达式可以做到这一点？

我试过了，但不确定如何捕获数字部分。

my $mirnew = $mir =~ s/microRNA(\d+)/miR-/gi;

Answer 1

您实际上不需要捕获任何东西，只需不区分大小写地替换 microRNA 和可选的 - 为 miR-:

s/microRNA-?/miR-/i;