perl如何用反斜杠“\”替换正斜杠“/”

[LiuLinda999]

用下面语句有语法错误，请指点啊~~
s///\\/;

[jiandingzhe]

你的正斜杠需要转义啊：

s/\//\\/g

或者，你可以换一个表达式的分割符，这样正斜杠不需要转义，只需要转义反斜杠：

s[/][\\]g

[笃墨]

my $a='a/s';
$a=~s#/#\\#;
print $a

[fibbery]

正则表达式的边界符在Perl中是可以变换的.当你的正则表达式字符串中存在边界符时,你可以选择其它不在表达式中的字符.

$str = "/abc/def/";
$str =~ s{/}{\\}g;
print("$str\n");

$str = "/abc/def/";
$str =~ s#/#\\#g;
print("$str\n");

对于开闭方式的边界符，必须成对出现，例如{}[]。