regex - Perl替换文本中的算术和重复

我正在尝试打印一些'+'字符，然后打印一些'-'字符，并通过一些简单的算术确定重复次数。您能告诉我以下内容有什么问题吗(这无需尝试除法即可):

some-command | perl -pe 's/(\d+) (\d+)/ "+" x ($1 / 4) . "-" x ($2 / 4)/eg'

最佳答案

/需要转义。尝试:

some-command | perl -pe 's/(\d+) (\d+)/ "+" x ($1\/4) . "-" x ($2\/4)/eg'

另一个选择是对正则表达式使用不同于/的字符:

some-command | perl -pe 's;(\d+) (\d+); "+" x ($1/4) . "-" x ($2/4);eg'