Question

我想将一些文本解析成一个表格，如下所示：

Protocol  Address          Age (min)  Hardware Addr   Type   Interface
Internet  10.35.195.1             -   0024.978a.d2d0  ARPA   FastEthernet0/0
Internet  10.35.195.2            73   0002.16a3.9e40  ARPA   FastEthernet0/0
Internet  10.35.195.12          130   0007.0e5b.861a  ARPA   FastEthernet0/0
Internet  10.35.195.14            1   000b.cdc9.7d11  ARPA   FastEthernet0/0
Internet  10.35.195.15            3   0021.5a7b.f2af  ARPA   FastEthernet0/0
Internet  10.35.195.16            0   000c.2909.2298  ARPA   FastEthernet0/0
Internet  10.35.195.17          112   0001.e6a2.5a90  ARPA   FastEthernet0/0
Internet  10.35.195.24          168   0050.564b.ebd4  ARPA   FastEthernet0/0

有固定宽度的文字输入。一些Params，例如“Hardware Addr”，其中有空格。首先，我使用Text :: CSV :: Slurp，很难定义分隔符。所以我放弃了。

就是知道，是否有一些perl模块或嵌入式perl命令（unpack，substr）可以平滑有效地处理这个输入？

Answer 1

我使用Parse::FixedLength模块，它可以正确处理这类问题。这是一个例子：

use strict;
use warnings;
use Parse::FixedLength;

#define your format in the constructor
my $pfl = Parse::FixedLength->new([qw(Protocol:10 Addr:34)], {trim=>1});

open my $file, '<', 'file_to_be_readed.txt' or die $!;
<$file> #if your file has a header, forget it

while( my $line = <$file> ) {
   my $data = $pfl->parse($line);
   my $protocol = $data->{Protocol};
   my $addr = $data->{Addr};
   #...
}

close $file;

Perl Text :: CSV :: Slurp处理固定宽度输入

1 个答案: