rand（）为perl中的空数组生成0值而不是null

Question

if (@_ && @$types && $types->[0]) {
    # Random array lookup
    print "@_\n"; #([])
    ("\@{$_[0]}&&$_[0]\->[rand(\@{$_[0]})]", chooseType($_[0]))
}

我想返回nul而不是0，因为数组是空的。

Answer 1

@a ? int(rand(@a)) : undef