windows - 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;