如何在正则表达式中使用的Perl文本中转义斜杠？

Question

end_date=$(date +"%m/%d/%Y")
/usr/bin/perl -pi -e "s/_end_date_/${end_date}/g" filename

我想用当前日期替换字符串'_end_date_'.由于当前日期中有斜杠(是的,我想要斜杠),我需要逃避它们.我怎样才能做到这一点？

我尝试了几种方法,比如使用sed和Perl本身用"/"替换斜杠,但它没有用.最后我使用'cut'来打破3个部分的日期并逃脱斜线,但这个解决方案看起来不太好.有更好的解决方案吗？

Answer 1

在Perl中,您可以选择使用哪个字符来分隔正则表达式的各个部分.以下代码可以正常工作.

end_date = $(date +"%m/%d/%Y")
/usr/bin/perl -pi -e "s#_end_date_#${end_date}#g" filename

这是为了避免"倾斜牙签"综合症与/交替.

Answer 2

使用不同的s分隔符:s{all/the/slashes/you/want/}{replacement}.