Perl 中用于获取文件名的 glob() 函数答案

【问题标题】：glob() function in Perl for getting filenamesPerl 中用于获取文件名的 glob() 函数
【发布时间】：2015-09-14 15:02:36
【问题描述】：

如何使用 glob() 函数获取存储在特定文件夹中的文件的特定名称？我在下面有一个示例源代码，但输出不同，它显示了文件的完整路径，而不是只显示特定的文件名。如何仅从路径集中检索文件名，或者如何直接访问并获取特定文件名？谢谢！

@files = glob('/Perl/Assignment/*');
foreach $files(@files){
    print "$files\n";
}

输出：

/Perl/Assignment/file1.txt
/Perl/Assignment/file2.txt
/Perl/Assignment/file3.txt

预期输出：

file1.txt
file2.txt
file3.txt

【问题讨论】：

标签： perl filenames glob

【解决方案1】：

你可以使用File::Basename:

use File::Basename;
my @files = glob('/Perl/Assignment/*');
foreach my $file (@files){
    print basename($file), "\n";
}

长期以来，它一直是 Perl 核心的一部分。

（在这种情况下必须使用括号，否则它认为"\n" 是basename 的参数而不是print。）

【讨论】：

非常感谢先生！ @吉姆戴维斯
如何将特定文件名插入数据库？如何应用基本名称的概念？

【解决方案2】：

如果你给glob 一个路径，那么它会返回一个。您可以chdir 到目录并仅指定文件名模式，如下所示

use strict;
use warnings;
use 5.010;
use autodie;

use constant DIR => '/Perl/Assignment';

chdir DIR;

my @files = glob '*';

say for @files;

或者，如果不更改工作目录很重要，那么您可以使用 File::chdir 模块对其进行本地化，如下所示

use strict;
use warnings;
use 5.010;
use autodie;

use constant DIR => '/Perl/Assignment';

my @files = do {
    local $CWD = DIR;
    glob '*';
};

say for @files;

【讨论】：