perl - 在 Perl 中识别空字符串

Question

对此可能有一个简单的解决方案，但我无法弄清楚。我期待:

将 CSV 文件放入数组

遍历数组并将字段拆分为变量

如果数组字段为空，则将变量设置为“N/A”

注意:它只是设置 $variable致“N/A ”，我无法开始工作。

例如:

foreach $var (@list) {

($name,$date,$size, etc...)=split(/,\"/,$var);

}

我将如何设置 $date “N/A”如果数组中的字段为空？

所以要生产:

$name = Jim
$date = N/A
$size = small

我希望这是有道理的，并且很容易解决。
-谢谢

Answer 1

假设变量 $date “空”时未定义:

if (!defined($date)) {
  $date = 'N/A';
}

或者更简洁:

$date //= 'N/A';

或者如果它确实是一个空字符串，即 $date = ''; (这也适用于 $date 未定义的情况，但如果您只想识别未定义的情况，则不想使用它):

if ($date eq '') {
  $date = 'N/A';
}

或者更简洁(请注意，如果 $date 是 N/A，由于 Perl 的弱类型，这也会将 $date 设置为 '0'):

$date ||= 'N/A';