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

发布于 2024-09-05 09:19:56 字数 356 浏览 10 评论 0原文

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

我想用当前日期替换字符串“_end_date_”。由于当前日期中有斜杠（是的，我想要斜杠），所以我需要转义它们。我该怎么做？

我尝试了几种方法，例如使用 sed 和 Perl 本身将斜杠替换为“/”，但没有成功。最后我使用“cut”将日期分成三部分并转义斜杠，但这个解决方案看起来不太好。有更好的解决方案吗？

原文

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

I want to replace string '_end_date_' with the current date. Since the current date has slashes in it (yes, I want the slashes), I need to escape them. How can I do this?

I've tried several ways, like replacing slashes with "/" using sed and Perl itself, but it didn't work. Finally I used 'cut' to break date in 3 parts and escaped slashes, but this solution doesn't look good. Is there a better solution?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

姐不稀罕 2024-09-12 09:19:56

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

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

这是为了避免“牙签倾斜”综合症与 / 交替出现。

In Perl you can choose which character to use to separate parts of a regular expression. The following code will work fine.

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

This is to avoid the 'leaning toothpick' syndrome with / alternating.

回复收藏 0 原文

城歌 2024-09-12 09:19:56

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

回复收藏 0 原文

原野 2024-09-12 09:19:56

我建议更改分隔符，但您几乎总是可以使用 quotemeta:

/usr/bin/perl -pi -e "my \$ed=quotemeta('${end_date}');s/_end_date_/\$ed/g" filename

但您也有这条路线：

/usr/bin/perl -pi -e 'BEGIN { use POSIX qw<strftime>; $ed=quotemeta(strftime( q[%m/%d/%Y], localtime())); } s/_end_date_/$ed/'

它与您的两条线执行相同的操作。

I would recommend changing the delimiter, but you can almost always get by with quotemeta:

/usr/bin/perl -pi -e "my \$ed=quotemeta('${end_date}');s/_end_date_/\$ed/g" filename

But you also have this route:

/usr/bin/perl -pi -e 'BEGIN { use POSIX qw<strftime>; $ed=quotemeta(strftime( q[%m/%d/%Y], localtime())); } s/_end_date_/$ed/'

which does the same thing as your two lines.

回复收藏 0 原文

鸠魁 2024-09-12 09:19:56

基于 Axeman 的答案，以下内容对我有用：

 perl -MPOSIX=strftime  -p -e'$ed=strftime( q[%m/%d/%Y], localtime()) ;s/_end_date_/$ed/'

需要注意的一些事项

不需要 quotemeta，因为编译器不会在变量 $ed/ >。
我使用了单引号 ' 而不是 "，否则您最终必须引用 $
我更喜欢使用 -MPOSIX=strftime< /code> 到 BEGIN { 使用 POSIX qw}

Building on Axeman's answer, the following works for me :

 perl -MPOSIX=strftime  -p -e'$ed=strftime( q[%m/%d/%Y], localtime()) ;s/_end_date_/$ed/'

A few things to note

The quotemeta isn't needed because the compiler isn't looking for a / in the variable $ed.
I have used single quotes ' rather than " as otherwise you end up having to quote $
I prefer using -MPOSIX=strftime to BEGIN { use POSIX qw<strftime> }