regex - Perl 正则表达式 : Modification of a read-only value attempted

Question

我正在尝试更换 whitespaces在将其与正则表达式匹配后的字符串中。

my $string = "watch download Buffy the Vampire Slayer Season 1 Episode 1 Gorillavid";

if ($string =~ m!(Season\s\d+\sEpisode\s\d+)!){

    $1 =~ s!\s+!!g;

    say $1;

}

现在，当我运行上面的代码时，我得到 Modification of a read-only value attempted .现在，如果我存储 $1 的值在一个变量中而不是尝试对该变量执行替换它工作正常。

那么，有什么方法可以在不创建新临时变量的情况下执行替换。

PS:有人可以告诉我如何将上面的代码编写为单行代码，因为我不能:)

Answer 1

不要弄乱特殊变量，只捕获您想要的数据，同时自己构建输出。

$string = "watch download Buffy the Vampire Slayer Season 1 Episode 1 Gorillavid";
if ($string =~ m!Season\s(\d+)\sEpisode\s(\d+)!){
   say("Season$1Episode$2");
}