펄이 괄호 뒤에 새로운 줄을 추가했습니다.

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 $_ 
}