perl - 在 void 上下文中无用地使用负模式绑定(bind) (!~)

Question

如果两个字符串都有空格或都没有空格，那么做一些事情。

my $with_spaces = $a =~ / / and $b =~ / /;
my $no_spaces = $a !~ / / and $b !~ / /;
if ($with_spaces or $no_spaces) {
    dosomething();
}

但是这段代码给出了一个错误:

Useless use of negative pattern binding (!~) in void context.

我在这里做错了吗？

Answer 1

这些行:

my $with_spaces = $a =~ / / and $b =~ / /;
my $no_spaces = $a !~ / / and $b !~ / /;

相当于:

(my $with_spaces = $a =~ / /) and ($b =~ / /);
(my $no_spaces = $a !~ / /) and ($b !~ / /);

使用 && 而不是 and , 或添加括号以更改 precedence :

my $with_spaces = $a =~ / / && $b =~ / /;
my $no_spaces = ($a !~ / / and $b !~ / /);