如何在 Perl 中将文件路径更正为操作系统特定的路径？

Question

由于一些混乱的遗留代码，

我

$path = [OS specific base DIR name][hardcoded Linux file path]

在 Linux 上有这样的情况，

$path = /common/path/to/dir/pathtofile/name.extension

但在 Windows 上它变成了这样

$path = C:\path\to\dir\pathtofile/name.extension

有些代码在 Windows 上失败，因为它需要一个 \ 而它得到一个 /。

有 Perl 函数可以帮助我吗？

类似

print "$path\n";
$path = <some function> $path;
print "$path\n";

C:\path\to\dir\pathtofile/name.extension
C:\path\to\dir\pathtofile\name.extension

Answer 1

File::Spec 系列模块完全存在因为这个原因。您可能需要考虑使用它而不是硬编码 UNIX 路径。

use File::Spec::Functions 'catfile';

my $path = catfile($os_specific_base_dir, 'pathtofile', 'name.extension');

如果您确实需要在某个地方硬编码 unix 路径（这看起来确实不是一个好主意），您可能应该使用 File::Spec::Unix 将路径拆分为其组件，然后使用目标系统本机的 File::Spec 变体来构建，将组件重新组合在一起。

Answer 2

您是否看过 File::Spec 核心模块以及相关模块？

Answer 3

听起来您好像是从其他地方将整个 $path 作为一个单元传递给您，而不是单独处理各个部分。在这种情况下，如果我们在 Windows 下运行，我认为没有比用反斜杠替换所有斜杠的丑陋解决方案更好的答案了。

以下内容应该可以满足您的需要：

if ($^O =~ /^MSWin/) {
    $path =~ s{/}{\\}g;
}

编辑：再想一想 - 看了 File::Spec 后，看起来您想要 canonpath 函数：

use File::Spec;
# ...
$path = File::Spec->canonpath($path);