Perl neue Zeile nach Klammer hinzufügen

Question

Ich habe eine Variable, die einen großen Text enthält. Ich möchte eine neue Zeile hinzufügen, wenn die Zeile eine schließende Klammer enthält. Wie mache ich das? Das ist, was ich habe jetzt ohne die neue Linie:

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

Dank!

Answer 1

Es wird ein wenig einfacher, wenn Sie die Standardvariable $_ verwenden.

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