我可以使用什么 Perl 模块从 Windows 上的相对路径获取绝对路径（包括文件名）？

Question

我只能想象我没有正确搜索；这似乎是一个显而易见的问题。如果这是重复的，我很抱歉。

我正在编写一个 Perl 程序，它将使用文件名作为命令行参数。我需要将文件名（或附加相对路径的文件名）转换为绝对路径（特别是与 Win32::OLE 一起使用）。

我尝试使用 Cwd 的“abs_path”，这几乎达到了我想要的效果，但它返回它使用 Unix 风格的路径而不是 Win32 风格的路径。

是否有一个可以转换路径的模块，或者可能是一个更好的模块可以首先使用？

Answer 1

我使用 File::Spec 中的 rel2abs。但您必须小心：这可能会从 Cwd 调用 getdcwd，并且它会假设您需要当前驱动器的当前工作目录。如果文件位于其他驱动器上，您必须自行修复该问题或提供第二个参数来设置基本路径。

Answer 2

use File::Spec::Functions qw(rel2abs);
print rel2abs($ARGV[0]), "\n";

Answer 3

my($foo) = abs_path($some_file);
$foo =~ s{/}{\\}g;

print "FOO: $foo\n";

Answer 4

我使用 Cwd 的 abs_path，然后在我真正需要时使用正则表达式来转换斜杠。但我发现对于大多数用途来说，Unix 风格的斜杠工作得很好。只是偶尔“将文件名传递给那个烦人的受限程序”，我最终需要转换斜杠。

use Cwd 'abs_path';
my $path = abs_path($rel_path);

# and only if necessary...
$path =~ s'[/\\]+'\\'g;  # use Windows-style slashes
$path =~ s'^\\'\\\\';    # handle network path

但是然后..我使用了很多网络路径，无论有没有映射的驱动器引用。您的里程可能会有所不同。