我的要求是使用 perl 打印文件名中包含 'xyz' 文本的文件。 我在下面尝试并得到以下错误
量词在正则表达式中没有任何内容，由
use strict;
use warnings;
my @files = qw(file_xyz.xlsx,file.xlsx);
my @my_files = grep { /*xyz.xlsx$/ } @files;
for my $file (@my_files) {
print "The output $file \n";
}
当我在 grep 正则表达式中添加 * 时，问题来了。
我怎么可能做到这一点？
【问题讨论】：
* 是一个元字符，称为量词。它的意思是“重复前一个字符或字符类零次或多次”。在您的情况下，它什么都不遵循，因此是语法错误。您可能正在尝试匹配任何内容，即.*: 通配符，后跟一个量词。但是，这已经是正则表达式匹配的默认行为，除非它被锚定。所以你只需要：
my @my_files = grep { /xyz/ } @files;
您可以保留字符串锚xlsx$ 的结尾，但由于文件名列表有限，这似乎没有必要。虽然你用错了qw()，但不是逗号分隔，是空格分隔：
my @files = qw(file_xyz.xlsx file.xlsx);
但是，如果您应该有一组更大的文件名，例如从目录中读取的文件名，则可以在中间放置一个通配符字符串：
my @my_files = grep { /xyz.*\.xlsx$/i } @files;
注意使用/i 修饰符不区分大小写。另请注意，您必须转义 .，因为它是另一个元字符。
【讨论】：
qw() 时，Perl 会给你一个警告。