perl - 如何在 Perl 中获取目录(文件路径)分隔符？

Question

对于 Java，我们可以使用

获取路径分隔符

System.getProperty("path.separator");

Perl中有类似的方法吗？我想做的就是找到一个 dir，直接子目录。假设我有两个参数 $a 和 $b；我根据路径分隔符拆分第一个片段，然后再次将其连接(除了最后一个片段)并与第二个参数进行比较。

问题是我的代码必须是通用的，为此我需要知道系统相关路径分隔符是什么？

Answer 1

您不应手动形成文件路径 - 而是使用 File::Spec模块:

($volume, $directories,$file) = File::Spec->splitpath( $path );
@dirs = File::Spec->splitdir( $directories );
$path = File::Spec->catdir( @directories );
$path = File::Spec->catfile( @directories, $filename );