将Perl正则表达式操作的结果赋值给第二个变量

Question

可以将下面的Perl代码简化为一条语句：

my $ a ='hello'; my $ b = $ a; $ b =〜s/o //;

我要寻找类似：

$ B = $ A =〜S/O //;

（虽然不产生我想要的东西; $ B变为 “1” 或 “真”）

Answer 1

关闭;您需要一些额外的括号，因为=比大多数运算符的优先级低。

($b = $a) =~ s/o//; 

Answer 2

试试这个：

($b = $a) =~ s/o//;