Perl文件::查找Windows反斜杠目录路径

Question

是否有一种简单的方法来自动替换$ dir反斜杠与向前的，因为我知道的唯一方法是手动，如果路径太长是相当恼人的。 谢谢。

use strict; 
use warnings; 
use File::Find; 

my $dir = "E:\dir1\dir2\dir3\dir4\dir5"; 

find(\&temp, $dir); 
sub temp { 
    ..... 
} 

Answer 1

不太清楚你所追求的，但一个简单的正则表达式将足以取代\与/：

埃塔：你将不得不放置在单引号的路径保存反斜杠，然后更换他们（感谢cjm指出）：

$dir = 'E:\dir1\dir2\dir3\dir4\dir5'; 
$dir =~ s#\\#/#g; 

Answer 2

那么非系统相关路径的想法呢？在标准的perl发行版中有一个名为File::Spec的模块。看看这段代码：

use strict; 
use warnings; 

use File::Spec; 

my $path; 
$path = File::Spec->catfile("dir1","dir2","dir3","dir4","dir5");