Perl正則表達式：需要語法幫助

Question

在Perl中，如何將這兩條語句合並在一行中？

$str=~ s/=>/:/g;
$str=~ s/\$VAR1 = {//g;

Answer 1

$str =~ s/(=>|\$VAR = {)/$1 eq '=>' && ':'/ge;

但是，實際上，最好不要按原樣保留代碼，除非您有一些確實，令人信服的理由來組合這些語句。

Answer 2

這很簡單-只需將“ ; ”更改為“ , ”-但是為什么呢？ 合並兩個語句不是目標，而是手段。 如果您告訴我們您的目標，則可以給您更好的答案。

$str=~ s/=>/:/g, $str=~ s/\$VAR1 = {//g;

其他方法：

do { $str=~ s/=>/:/g; $str=~ s/\$VAR1 = {//g; };

s/=>/:/g, s/\$VAR1 = {//g for $str;

$str = $str =~ s/=>/:/gr =~ s/\$VAR1 = {//gr;   # 5.14+ required.