Perl 如何检查文件是否存在不区分大小写

我想检查Perl中是否存在文件。这可以使用

（-e$filename）

完成。但这是区分大小写的。如何检查不区分大小写。我必须只使用核心包来实现这一点。

从

（grep{/$file/i}）或死“$file在$dir中不存在\n”；

请参阅第页。您需要

/^\Q$file\E\z/

(grep {/$file/i} <$dir/*>) or die "$file not exist in $dir\n";