Perl - 파일에 쓰기 전에 텍스트 데이터 서식 지정

Question

파일에 데이터를 쓰고 있습니다. 파일은 다음과 같습니다.

[section1] [section2] [section3] 
[section1] [section2] [section3] 

파일에 직접 데이터를 쓰고 있지 않습니다. 먼저 문자열에 행을 추가 한 다음 파일에 쓰고 있습니다.

$str .= "section1_data section2_data section3_data\n"; 
$str .= "section1_more_data section2_more_data section3_more_data\n"; 

이제 모든 섹션의 길이는 30 자 여야합니다. 모든 섹션 내부의 데이터는 항상 30 자 이하입니다.

perl에서이 작업을 수행 할 수있는 방법이 있습니까?

그게 내가 필요 정확히 무슨 ...

open FH,">>filename"; 
print FH $str; 
close FH; 

Answer 1

$str .= sprintf("[%-30s] [%-30s] [%-30s]\n", 
    $section1_data, 
    $section2_data, 
    $section3_data, 
);