是否可以创建一个包含条件项的数组?
my @a = (1, ($condition) ? 2 : "no-op", 3);
"no-op"
是这样工作的函数,如果 $condition
为假,那么我得到列表 (1, 3)
但如果 $condition
为真,我得到 (1, 2, 3)
?
背景:
use strict;
use warnings;
use File::Find::Rule;
my $rule = File::Find::Rule->new();
$rule->or(
$rule->new->name('*.cfg')->prune->discard,
$rule->directory->name("_private.d")->prune->discard,
$rule->new->name('*.t')->prune->discard,
$rule->new->name('*.bak')->prune->discard,
$rule->new->name('.*.bak')->prune->discard,
$rule->new->name('.#*')->prune->discard,
);
my @files = $rule->in(".");
在某些情况下,我想包括这一行
$rule->directory->name("_private.d")->prune->discard
在其他情况下,我不想排除目录 _private.d
..
最佳答案
你可以使用空列表 ()
来跳过第二个元素,
my @a = (1, ($condition ? 2 : ()), 3);
关于perl - 生成包含条件项的列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27821728/