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

在Java的情况下,我们可以使用路径分隔符

System.getProperty("path.separator");

Perl有类似的方法吗？所有我想要做的是找到一个目录,即时子目录.
说我被给予两个参数$a和$b;我基于路径分隔符分裂第一个,并重新加入,除了最后一个片段,并与第二个参数进行比较.

问题是我的代码必须是通用的,因此我需要知道系统依赖的路径分隔符是什么？

解决方法

接受的答案解决了您的真正问题,但如果您真的想得到分隔符(仅使用perl核心模块)：

my $sep = File::Spec->catfile('','');

这将使用当前系统的分隔符连接两个空文件名,只留下分隔符.

原文地址：https://www.jb51.cc/Perl/172782.html