perl - 如何在 Perl 中将多个变量与相同的值(空)进行比较？

Question

所以，我有一些变量需要检查是否为空，如果我能以某种方式来做，而不是像这样比较每个变量，那会更好也更容易

if ($var1 ne "" && $var2 ne "" && $var3 ne"")

那么有没有更好的办法呢？

PS:如果有人提议将它们放在一个散列中并循环遍历它们，它们已经在一个散列中，但它们并不孤单，我在那里还有很多其他值(所有这些值都需要在后面一起使用代码，因此拆分它并不容易)。

Answer 1

您可以使用 List::Util::all像这样

use List::Util 'all';

if ( all { $_ ne '' } $var1, $var2, $var3 ) { ... }

但我希望以你展示的形式看到它

如果您正在测试散列的值，那么您应该使用散列切片来选择它们

if ( all { $_ ne '' } @hash{@keys_to_check} ) { ... }