Perl readdir 警告 - 名称 "main::DIR"仅使用一次 : possible typo

Question

我有一个脚本列出了特定目录中可能的文件。代码工作正常，但如何避免这个警告？

#!/usr/bin/perl

use strict;
use warnings;
use autodie;

my $logpath = "C:/Users/Vinod/Perl/Log";

opendir(DIR, $logpath);
while (my $file = readdir(DIR)) {

    next unless (-f "$logpath/$file");
    print "FILENAME:$file\n";

}
closedir(DIR);

编译或运行脚本时显示的警告是:

$ perl -cw log_fetch.pl
Name "main::DIR" used only once: possible typo at log_fetch.pl line ...
log_fetch.pl syntax OK

Answer 1

这似乎是使用 use autodie; 的一个奇怪的副作用。

可以按如下方式消除警告:

sub x { *DIR }  # Silence spurious "used only once" warning.

但是，您不必要地使用了全局变量 (*DIR)。使用词法变量会好得多，但这会解决问题。

opendir(my $DIR, $logpath);