如何解决Perl File :: Find Windows反斜杠目录路径
|| 是否有一种简单的方法可以自动将$ dir反斜杠替换为正斜杠,因为我知道的唯一方法是手动操作,并且如果路径太长会很烦人。 谢谢。use strict;
use warnings;
use File::Find;
my $dir = \"E:\\dir1\\dir2\\dir3\\dir4\\dir5\";
find(\\&temp,$dir);
sub temp {
.....
}
解决方法
不太确定要使用什么,但是简单的正则表达式足以将
\\
替换为/
:
预计到达时间:您必须将路径放在单引号中以保留反斜杠,然后将其替换(感谢cjm指出):
$dir = \'E:\\dir1\\dir2\\dir3\\dir4\\dir5\';
$dir =~ s#\\\\#/#g;
, 与系统无关的路径的想法呢?在标准perl发行版中有一个名为File :: Spec的模块。看下面的代码:
use strict;
use warnings;
use File::Spec;
my $path;
$path = File::Spec->catfile(\"dir1\",\"dir2\",\"dir3\",\"dir4\",\"dir5\");
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。