查找Perl值是否已初始化的命令

Question

我现在的问题是基于我遇到的有关CSV文件的问题，但它也更一般。

我正在寻找使用类似于Java/Groovy/Gosu中的null问号来确定数组索引是否已被初始化。

我有类似：

for (my i = 0; i < @engVals or i < @frenchVals; i++) { 

    $csv->print($file, [ $engVals[i] ?: "", , $frenchVals[i] ?: "" ]); 

    # Where Elvis ops ensure that the array element at i is initialized, and if not stores blank in the CSV 
} 

Answer 1

defined $engVals[i] 

见http://perldoc.perl.org/functions/defined.html

或者你也可以做

$engVals[i] // '' 

见http://perldoc.perl.org/perlop.html#Logical-Defined-Or

Answer 2

您甲肾上腺素ED的定义或操作//如果它被定义返回其左操作数，否则其右操作数

$csv->print($file, [ $engVals[i] // "", $frenchVals[i] // "" ]); 

我不确定为什么你有两个数组元素之间的两个逗号。如果这是一个错字，那么上面的陈述就是你想要的，但是如果你打算在结果CSV数据中应该有一个中间空白字段，那么你应该写, "",。