如何在 Perl 中正确访问环境变量？

Question

$ cat flaglist.log
flag1
flag2
flag3
flag4
$

Perl 代码

my $infile = "flaglist.log";
open my $fpi, '<', $infile or die "$!";
while (<$fpi>) {
    chomp;  
    if ($ENV{$_}) {   # something wrong here
        func($_);
    }       
    else {  
        print "oops\n";
    }       
}

$ perl code.pl
oops
oops
oops
oops
$

所有四个标志都是设置的环境变量的名称（我在 shell 中使用echo $flag1 检查）。

这里的 if 条件总是返回 false。如果我写$ENV{flag1}，结果为真，func() 会按我的预期调用。

我在 if 语句中做错了什么？

Answer 1

代码似乎对我有用。尝试从输入行中删除任何空格：

while (<$fpi>) {
    s/\s+//g;
    # ...
}