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

Question

我想检查 Perl 中是否存在文件。这可以使用(-e $filename) 来完成。但这是区分大小写的。如何检查不区分大小写。我必须只使用核心包来实现这一点。

Answer 1

从here窃取。

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