如何替换 perl 正则表达式中的字符串

Question

有没有办法替换正则表达式内部的字符？

像这样：

find x | xargs perl -pi -e 's/(as dasd asd)/replace(" ","",$1)/'

来自OP的评论

code find x | xargs perl -pi -e 's/work_search=1\/ttype=2\/tag=(.*?)">(.*?)<\/a>/work\/\L$1\E\" rel=\"follow\">$2<\/a>/g'

在这种情况下，我希望 $1 的空格被 _ 替换

Answer 1

您可以使用嵌套替换：

$ echo 'foo bar baz' | perl -wpE's/(\w+ \w+ \w+)/ $1 =~ s# ##gr /e'
foobarbaz

请注意，/r 修饰符需要 perl v5.14。对于早期版本，请使用：

$ echo 'foo bar baz' | perl -wpE's/(\w+ \w+ \w+)/my $x=$1; $x=~s# ##g; $x/e'
foobarbaz

另请注意，您需要为内部替换使用不同的分隔符。如您所见，我使用了#。

Answer 2

据我了解，您想删除空格。正确吗？

你可以这样做：

s/(as) (dasd) (asd)/$1$2$3/