在perl中抓取多维数组

Question

我正在尝试学习 perl 来解析文件，但是在解析多维数组时遇到了问题。

>cat files
ge-1/1/1.81     up    up   NODEB_CLUSTER#81
ge-1/1/1.82     up    up   NODEB_CLUSTER#82
ge-1/1/1.2501   up    up   *** OM_nodeB_VLAN_2501 ***
ge-1/1/1.2502   up    up   *** OM_nodeB_VLAN_2502 ***

如果我尝试用分割空格来推动它，它会在第一行和第二行形成 4 列，而在第三和第四行形成 6 列。

我们如何拆分它并创建这样的输出：

ge-1/1/1.81,up,up,NODEB_CLUSTER#81
ge-1/1/1.82,up,up,NODEB_CLUSTER#82
ge-1/1/1.2501,up,up,*** OM_nodeB_VLAN_2501 ***
ge-1/1/1.2502,up,up,*** OM_nodeB_VLAN_2502 ***

谢谢大家

Answer 1

#!/usr/bin/perl 
use warnings;
use strict;

my @array  = <DATA>;
chomp (@array);
foreach (@array)
{
    my @a = split (/\s\s+/,$_);
    foreach (@a)
    {
        print "$_,";
    }
    print "\n";
}

__DATA__
ge-1/1/1.81     up    up   NODEB_CLUSTER#81
ge-1/1/1.82     up    up   NODEB_CLUSTER#82
ge-1/1/1.2501   up    up   *** OM_nodeB_VLAN_2501 ***
ge-1/1/1.2502   up    up   *** OM_nodeB_VLAN_2502 ***

输出：

ge-1/1/1.81,up,up,NODEB_CLUSTER#81,
ge-1/1/1.82,up,up,NODEB_CLUSTER#82,
ge-1/1/1.2501,up,up,*** OM_nodeB_VLAN_2501 ***,
ge-1/1/1.2502,up,up,*** OM_nodeB_VLAN_2502 ***,

注意我是如何分裂的。您需要\s\s+，因为*** 和OM 之间有空格。

拆分将在2 spaces or more 上拆分。所以这样就不会分裂*** OM... 因为中间只有 1 个空格。

Answer 2

咀嚼数组并没有什么好处

您还可以显式匹配 2 个或更多空格：

use warnings;                                                                                                                                                                                           
use strict;                                                                                                                                                                                             

foreach my $line (<DATA>)                                                                                                                                                                               
{                                                                                                                                                                                                       
    chomp($line); #remove newline                                                                                                                                                                       
    print join( ',',                                                                                                                                                                                    
            split( /\s{2,}/, $line ) #at least 2 spaces                                                                                                                                                 
        ), "\n";                                                                                                                                                                                        
}                                                                                                                                                                                                       

__DATA__                                                                                                                                                                                                
ge-1/1/1.81     up    up   NODEB_CLUSTER#81                                                                                                                                                             
ge-1/1/1.82     up    up   NODEB_CLUSTER#82                                                                                                                                                             
ge-1/1/1.2501   up    up   *** OM_nodeB_VLAN_2501 ***                                                                                                                                                   
ge-1/1/1.2502   up    up   *** OM_nodeB_VLAN_2502 ***