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

Question

我有一些Perl代码,它有文件glob操作.

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

我希望在我整理文件时反映整个绝对路径,而不仅仅是我的代码中当前的文件名.

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

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

我如何获得这种效果.

谢谢,

-广告.

Answer 1

您希望使用核心模块Cwd获取与当前工作目录相关的完整路径.

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