perl - 如何在Perl中的对齐列中编写文本？

Question

我正在尝试从Perl写入文件。我只想以制表符分隔的格式写数据。但是，我正在写入的数据具有不同的长度，并且没有排列。
例如，我试图写这样的东西:

Name  Education   Fav_Car  MoneyInBank
josh  High School Porche   500
SomeOtherName  PHD  Hyundai   50000

我只希望数据与顶部的标题对齐。
我正在像这样输出数据:

 printf FILE ("%s%20s%20s\n", "Name", "Ed", "Car");
 while (($name, $ed, $car) = $sth->fetchrow_array) {
     printf FILE ("%s>>>>>>>>>>>>>%40s%40s\n", $name, $ed, $car);
 };

Answer 1

在文本编辑器中打开时，制表符分隔的数据(字段的长度不一致)不会对齐。

解决方案:

在电子表格中打开文件。

在文字处理器中将其打开，选择所有文本，然后定义适当的制表位。 (感谢Justsalt)

在文本编辑器中，将制表符宽度设置为大于任何字段的值。

使用空格代替制表符(例如，具有字段宽度的 printf 或formats)。

例如，您可以使用

printf("%-15s %-15s %-10s %9s\n", $name, $edu, $car, $cash);

-之后的 %导致字段左对齐。数字(例如货币)通常是右对齐的(这是默认值)。