为什么在运行以下脚本时收到警告Name "main::USER_INPUT" used only once: possible typo？...
my $success_open = open USER_INPUT , '<:encoding(UTF-8)', $filehandle;
if(!$success_open)
{
die "Failed to open: $filehandle. $!";
}
while(<USER_INPUT>)
{
push @storage, $_;
}
close USER_INPUT;
尽管有警告，脚本仍可以正常运行。看来我使用了USER_INPUT了三遍：一次，当我将其作为文件句柄打开时，一次，当我从文件中读取时，一次，当我将其关闭时。 open和close是否不算作USER_INPUT的使用？我的猜测是warnings应该算在内。如果不计算它们，那为什么呢？
我阅读了几个有关once警告的网页，并且它们提供了抑制警告的解决方案，但是它们似乎没有提供足够的信息来了解我的情况下once发生的原因/方式：
如何/在哪里可以找到有关once警告的工作方式的更多信息？是否有URL，书籍，文件等？也许once的代码在我的Perl安装中的某个地方，但是我不知道在哪里。我也浏览了以下书籍（包括它们的索引），但没有找到有关once的任何详细信息：