Question

我已经编写了一个omnimark程序来获取输出文件中所需的标签。但是这个输出数据的格式有问题。那么我应该怎么做才能使用perl将下面的输出数据放到表格格式中。

Omnimark程序的输出 - 输入到Perl程序：

2.01[1] <hst u="61130263" c="" r="" st="">
<title>Holmes v. Cheney
<dkt>5-2652
<dte>19620000
<ct>Ark
<refs>234 Ark 503, 352 SW2d 943
</hst>  9

预期：

 2.01[1]    <hst u="61130263" c="" r="" st="">              9
            <title>Holmes v. Cheney
            <dkt>5-2652
            <dte>19620000
            <ct>Ark
            <refs>234 Ark 503, 352 SW2d 943
            </hst>

Answer 1

也许使用Text::Table：

use strict;
use warnings;

use Text::Table;

my $data = [
    "2.01[1]",
    qq{<hst u="61130263" c="" r="" st="">\n<title>Holmes v. Cheney\n<dkt>5-2652\n<dte>19620000\n<ct>Ark\n<refs>234 Ark 503, 352 SW2d 943\n</hst>},
    9,
];

my $tb = Text::Table->new();
$tb->load($data);
print $tb;

输出：

2.01[1] <hst u="61130263" c="" r="" st=""> 9
        <title>Holmes v. Cheney             
        <dkt>5-2652                         
        <dte>19620000                       
        <ct>Ark                             
        <refs>234 Ark 503, 352 SW2d 943     
        </hst>

我们如何使用perl将数据格式化为表格格式

1 个答案: