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

发布时间：2020-12-15 21:14:43 所属栏目：大数据来源：网络整理

导读：在Java的情况下,我们可以使用路径分隔符 System.getProperty("path.separator"); Perl有类似的方法吗？所有我想要做的是找到一个目录,即时子目录. 说我被给予两个参数$a和$b;我基于路径分隔符分裂第一个,并重新加入,除了最后一个片段,并与第二个参数进行比较

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

System.getProperty("path.separator");

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

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

解决方法

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!