perl在括号后添加新行

Question

我有一个包含大文本的变量。我想在每行都有一个右括号时添加一个新行。我怎么做？这就是我现在没有新线的情况：

     foreach $x (@lines) {
     print $x . "\n"; 
     }

谢谢！

Answer 1

如果使用默认的$_变量，它会变得容易一些。

foreach (@lines) { # For every record in @lines
  s/\)/)\n/g;      # Replace every ")" with ")\n"
  print;           # Print the value in $_
}