perl - 关于 Perl 文件名通配符的问题

Question

我正在使用 perl 来处理一些文本文件。我想使用 perl 文件名通配符来查找文件夹中所有有用的文件并一一解决，但我的文件名中有空格。然后我发现文件名通配符无法正确处理这些文件名。这是我的代码：

my $term = "Epley maneuver";
my @files = <rawdata/*$term*.csv>;
my $infiles;
foreach $infilename (@files) {
    if($infilename =~ m/(\d+)_.*\.csv/)
    {
        $infiles{$infilename} = $1;
        print $1."\n";
    }
}

文件名如下：

34_Epley maneuver_2012_4_6.csv
33_Epley maneuver_2012_1_3.csv
32_Epley maneuver_2011_10_12.csv
...

它们位于名为“rawdata”的文件夹中。

当我将它用于不包含空格的术语时，例如“dizzy”，效果很好。但是，当该术语包含空格时，它就会停止工作。我在谷歌上搜索了这个，但几乎没有找到有用的信息。

会发生什么，我该如何正确地做到这一点？任何帮助都会很好。非常感谢。

Answer 1

glob运算符的工作方式类似于命令行处理器。如果你写<rawdata/*Epley maneuver*.csv>它会寻找匹配的文件rawdata/*Epley或maneuver*.csv

您必须将 glob 表达式放在双引号中：

my @files = <"rawdata/*$term*.csv">