Perl - 格式化输出和读取格式化数据

Question

我正在尝试将一些数据写入 CSV 文件并读回这些数据。为了更好的可读性，我使用 Perl 格式来创建类似表格的外观，并且为了在 Excel 中打开时将数据显示在适当的列中，我使用逗号分隔列。我的表是具有各自属性的 ID 列表。下面是我用来显示每个 ID 的格式：

format TABLE = 
@<<<<<, ^<<<<<<<<<<<<<<, ^<<<<, @<<<<, @<<<<<
$ID,   $description,    $att,  $errors, $location
      , ^<<<<<<<<<<<<<<, ^<<<<,
       $description,    $att
      , ^<<<<<<<<<<<<<<, ^<<<<,
       $description,    $att
      , ^<<<<<<<<<<<<<<
      $description
      , ^<<<<<<<<<<<<<<
      $description
.

这种格式的问题是保留显示$description 和$att 的行数是固定的。如果我的字符串比那个长，它将被截断，如果短于 5 行，则总是会显示空行。由于$description 字符串的长度是不可预测的，有没有什么办法可以确保内容即使更长，也不会出现空行，即使它比格式中指定的行数短？

当前输出：

13_456, this is a examp, val1:, 3    , fold1
      , le of a line th, x; va,
      , at if follow th, l2: y,
      , e current forma,
      , t would be trun,

12_456, this is a short, val1:, 0    , fold2
      ,  description   , a; va,
      ,                , l2: b,
      ,                ,
      ,                ,

期望的输出：

13_456, this is a examp, val1:, 3    , fold1
      , le of a line th, x; va,
      , at if follow th, l2: y,
      , e current forma,
      , t would be trun,
      , cated          ,

12_456, this is a short, val1:, 0    , fold2
      ,  description   , a; va,
      ,                , l2: b,

为了从文件中读取，我可以逐行解析文件以匹配$ID 模式并检索该 ID 的所有信息（$description、$att、$errors、$location） .但是由于我使用 Perl 格式打印数据，我只是想知道是否可以使用这种格式来读回数据，即 Perl 是否提供任何库/功能来帮助读取符合指定 Perl 格式的数据？我做了一些研究，但似乎没有找到，任何帮助都非常感谢。

Answer 1

自从我上次查看format 以来已经过去了大约五年，但我认为您需要的是自动重复标志~~，它表示应该重新使用格式行，直到变量被清空

您使编写有效的东西变得非常困难，因为您没有给我们任何数据，并且您显示的格式语句无法产生该输出，因为字段宽度不同。你一定也弄乱了$: ($FORMAT_LINE_BREAK_CHARACTERS) 让你的输出像那样拆分，但你没有提到它

除了限制输出的行数之外，这里有一些代码可以生成您所要求的内容。您不能进行多行自动填充以及限制行数，如果超过 75 个字符（5 行15 个字符）

use strict;
use warnings 'all';

my ( $ID, $description, $att, $errors, $location );

format STDOUT =
@<<<<<, ^<<<<<<<<<<<<<<, ^<<<<, @<<<<, @<<<<<
$ID,   $description,    $att,  $errors, $location
      , ^<<<<<<<<<<<<<<, ^<<<<, ~~
       $description,    $att

.

local $:;

( $ID, $description, $att, $errors, $location ) = (
    '13_456',
    'this is a example of a line that if follow the current format would be truncated at the end of the fifth line',
    'val1:x; va12: y',
    3,
    'fold1',
);

write STDOUT;

( $ID, $description, $att, $errors, $location ) = (
    '12_456',
    'this is a shortdescription',
    'val1:a; val2: b',
    3, 'fold2',
);

write STDOUT;

输出

13_456, this is a examp, val1:, 3    , fold1
      , le of a line th, x; va,
      , at if follow th, 12: y,
      , e current forma,      ,
      , t would be trun,      ,
      , cated at the en,      ,
      , d of the fifth ,      ,
      , line           ,      ,

12_456, this is a short, val1:, 3    , fold2
      , description    , a; va,
      ,                , l2: b,

Answer 2

不要试图重新发明轮子，使用专门用于手头任务的模块：Text::CSV。