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