如何在Perl中获取目录中的所有文件,而不是子目录中的所有文件？

Question

如何-M在目录列表中找到符合特定条件(修改年龄,以天为单位)的所有文件,但不能在其子目录中找到？

我想使用File :: Find,但看起来它总是会转到子目录.

Answer 1

@files = grep { -f && (-M) < 5 } <$_/*> for @folders;