perl - 如何使用 Perl glob 返回文件的绝对路径名？

Question

我有一些具有文件全局操作的 Perl 代码。

$file1 = @ARGV[0];
@res1 = glob "$file1*";

我希望在全局文件时反射(reflect)整个绝对路径，而不仅仅是我的代码中当前的情况的文件名。

例如当我执行 glob "*.pdf"时，我需要匹配 pdf 文件的绝对路径并通过 glob 返回到我的数组变量。

我尝试使用模块 use File::Basename;但这似乎用于将文件路径解析为目录、文件名、后缀。

如何获得这种效果。

谢谢

-AD。

Answer 1

您想要使用核心模块Cwd来获取当前工作目录的完整路径。

use Cwd;
@res1 = map { Cwd::abs_path($_) } glob "$file1*";