获取“基本名称”来自“glob”

Question

目录路径“/home/PPP/main/windows/agile/cmPvt”的内容为aaa、bbb、ccc、ddd。

代码片段：

use File::Basename;
my $kkLoc = ("/home/PPP/main/windows/agile/cmPvt");
my @kkarray = glob("$kkLoc/*") if (-e $kkLoc);
foreach my $kknum (@kkarray) {  ## Here: see below
}   

这里：我希望在 @kkarray 中，"aaa", "bbb", "ccc", "ddd" 应该出现，但我得到了整个路径如 "/home/PPP/main/windows/agile/cmPvt/aaa", "/home/PPP/main/windows/agile/cmPvt/bbb",....另外，我尝试过，foreach my $kknum (basename "@kkarray") { }，但不起作用。

在执行 glob() 时如何从完整路径获取“基本名称”？

注意：由于某种原因，我无法在执行 glob 命令之前对路径执行 chdir 操作。

Answer 1

您尝试使用带有插值数组的字符串作为 basename 的参数。那是错误的。您应该采用单独的路径，而不是所有连接在一起的路径。

for my $path (@paths) { 
    print "Basename is: ", basename($path);
}

它在文档中说明了应该如何使用basename 功能：

my $filename = basename($path);
my $filename = basename($path, @suffixes);

提供此函数是为了与 Unix shell 命令 basename(1) 兼容。它并不总是像您所期望的那样返回路径的文件名部分。为了安全起见，如果您想要路径的文件名部分，请使用 fileparse()。

basename() 返回文件路径的最后一层，即使最后一层显然是目录。实际上，它的作用类似于路径的 pop()。这与 fileparse() 的行为不同。

# Both return "bar"
basename("/foo/bar");
basename("/foo/bar/");

---

您应该注意，通过从 glob 中删除完整路径，如果您也无法 chdir 到文件的位置，则您将无法访问这些文件，就像您所说的“由于某种原因”无法执行操作一样。所以这整个练习对你来说可能毫无意义。

您可能想看看 File::Find ，它确实类似的事情，递归地，自动地允许您选择基本名称或全名。就像一个多合一包装。

Answer 2

您可以使用 map 在数组的每个元素上调用 basename ：

foreach my $kknum (map { basename($_) } @kkarray) {
}

如果需要，这会将完整路径保留在数组变量中。

如果您不想在数组变量中使用完整路径，则可以在填充数组时使用 map：

my @kkarray = map { basename($_) } glob("$kkLoc/*");

Answer 3

如果您只对该目录中的文件名感兴趣，那么只需直接读取该目录：

my $path = '.....';
opendir my $dir, $path or die "opendir($path): $!\n";
my @kkarray = sort grep !/^\.\.?$/, readdir $dir;
close $dir;