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

Question

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

Answer 1

here被盗。

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