Question

perl中如何用反斜杠\替换斜杠/

用File::Find::name输出的路径名中既有斜杠又有反斜杠，要统一路径全都是用反斜杠怎么办？试过用s///替换生成结果表示有错误……

Answer 1

用 s///这个的时候，你转义了没有。

s/\\/\//

前面再加个转义字符\。试试。

追问

还是不行。试过s///\\/，也不行。
子程序如下：
find(\&want, 'N:\TEST');
sub want{
return unless /(_a|_b)/;
my $path = $File::Find::name;
$match_list{(stat($path))[9]} = $path;
s///\\/;
print $path;
}