Question

我正在尝试查询一些表格中的数据，如下所示，

+----------------------------------------------------- MA ESTICKSTS ------------------------------------------------------+
|                                 |    |                               |    |   |   | Opms  | Esticks Delsif  |Baslentelts|
|Name                             |Type|Esticks Permina                |Div |LvL|mde|Loe|Thi|PC|HH|WE|SS|FF|ER|           |
+---------------------------------+----+-------------------------------+----+---+---+---+---+--+--+--+--+--+--+-----------+
|Nuts-and-spices|code2398         |VS  |Msserie_2398                   |2398|7  |br |0  |3  |  |  |  |  |  |  |No         |
|Nuts-and-spices.EP.034330..WERS..|VS  |Msserie_2996                   |2996|7  |br |3  |2  |  |  |  |  |  |  |Ye         |
+---------------------------------+----+-------------------------------+----+---+---+---+---+--+--+--+--+--+--+-----------+

无论如何将这些数据转换为Perl中的JSON数组？因为如果我把这些数据放到一个关联数组中会很棒。

而且我也不需要表头数据。我只需要提取行数据。

请帮助我！

Answer 1

从示例中可以看出，数据（标题下方）接近固定宽度参数。使用这些宽度扫描数据可能更容易获取数据。

或者，数据位于由＆＃39; |＆＃39;分隔的大字符串中。字符。为什么不使用特定字符作为分隔符将字符串拆分为数组。使用trim（使用数组方法）清理数据可能是明智的。 [没有修剪不是库存库的一部分。检查食谱以获得更好的修剪版本。]

正则表达式使用Perl

1 个答案: