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

前端之家收集整理的这篇文章主要介绍了如何获取Perl中的目录(文件路径)分隔符?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
在Java的情况下,我们可以使用路径分隔符
System.getProperty("path.separator");

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

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

解决方法

接受的答案解决了您的真正问题,但如果您真的想得到分隔符(仅使用perl核心模块):
my $sep = File::Spec->catfile('','');

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

猜你在找的Perl相关文章