排除以特定文件扩展名结尾的文件

Question

我想获取工作目录中的所有文件，例如以.pl 结尾的文件除外。所以，test.pl 应该被排除在外，而不是 test.txt 或 test.xyz

表达式glob(".* *") 匹配工作目录中的所有文件，并且似乎运行良好。除了排除以.pl结尾的文件部分。我尝试了几种表达方式，包括*(?!.pl),，但似乎都没有。

Answer 1

一种常见的方法是使用grep 排除列表中的项目：

my @files = grep { !/\.pl$/ } glob(".* *");