Perl unless 散列声明中的语句 - 这可能吗？

Question

我正在使用哈希表来帮助迭代文件的权限。

如果测试不成功，我想将 $permissions{$perm}[0] 标记为 0，但是我不确定这是否可能？

        my %permissions = (
            'w'     => {    'write'         => '0' unless (-w $file) }, #dies here
            'r'     => {    'read'          => '0' unless (-r $file) },
            'x'     => {    'execute'       => '0' unless (-x $file) },
    );

失败，“'0' unless”附近出现语法错误。

有没有办法在散列声明中做到这一点？

Answer 1

这应该等同于你想要的

my %permissions = (
        'w'     => { 'write'         => -w $file ? 1 : 0 },
);

或更短，

        'w'     => { 'write'         => (-w $file) +0 },