Question

我在perl中有以下代码

my %Opt = 
  (
   boards_txt => "$ENV{'ARDUINO_DIR'}/hardware/arduino/boards.txt",
  );

在此，您可以看到env变量ARDUINO_DIR是追加的。某些用户可能没有设置此变量。如果是这种情况，那么我想对路径进行硬编码。

问题：如何检查是否设置了env变量？

Answer 1

已经给出了正确的答案，但我想补充一点，您可以使用相当方便的defined-or赋值运算符//=：

my $dir = $ENV{'ARDUINO_DIR'};  
$dir //= "/other/path";

或者，正如RobEarl在评论中指出的那样：

my $dir = $ENV{'ARDUINO_DIR'} // "/other/path";

这是

的逻辑等价物

my $dir;
if (defined $ENV{'ARDUINO_DIR'}) { 
    $dir = $ENV{'ARDUINO_DIR'};
} else {
    $dir = "/other/path";
}

正如mob指出的那样，定义的或运算符需要perl v5.10。对于尚未升级到该版本的用户，也可以使用||运算符：

my $dir = $ENV{'ARDUINO_DIR'} || "/other/path";

需要注意的是，这会覆盖被解释为false的值，在某些情况下可能会将其视为正确的值，例如空字符串或零。但是，在这种情况下，0或空字符串不太可能是有效路径。

Answer 2

您已使用%ENV哈希。它包含所有环境变量，因此您可以执行以下操作：

if (defined $ENV{'ARDUINO_DIR'}) { $prefix = $ENV{'ARDUINO_DIR'} }
else { $prefix = '/path/to/arduino/dir/' }

my $path_to_txt = $prefix . 'boards.txt';

我建议您使用File::Spec来处理路径。

Answer 3

您可以使用exists检查是否存在哈希键：

perl -le 'print "fnord!" if exists $ENV{"ARDUINO_DIR"}'

如何检查是否设置了环境变量？

3 个答案: