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

Question

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

Answer 1

从这里偷来了 。

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