perl替换文本中的算术和重复

Question

我正在尝试打印一些'+'字符，后跟一些' - '字符，重复次数由一些简单的算术确定。你能告诉我以下是什么问题（没有尝试分裂的话）：

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

Answer 1

/需要转义。尝试：

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'