perl - 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,
);