다중 행 문자열을 Perl의 해시 배열로 변환하는 방법

Question

기본적으로 문자열에 저장된 테이블을 해시 배열로 변환하려고합니다. 내 데이터는 다음과 같습니다.

model     |part_number |type    |serial_number | 
----------------------|--------------|-----------------|----------------| 
SCBE-MX-S    |750-031391 |CB    |ZV1111   | 
SCBE-MX-S    |750-031391 |CB    |ZR1111   | 
SCBE-MX-S    |750-031391 |CB    |ZV1111   | 

어떻게 이것을 해시 배열에 넣을 수 있습니까?

그래서 기본적으로 여기에 지금까지 내 코드입니다

array 0 
model => SCBE-MX-S 
PartNumber => 750-031391 
type => CB 
serialNumber => ZV1111 

array 1 
...... 

과 같을 것이다. 그것은 괜찮은 일하지만 지금은 단 하나의 배열 대신 해시의 배열을 사용하여 변환해야합니다.

use strict; 
use warnings; 

my @data; 
my @data_; 
my @index_; 

my $input = `lrm show -t=model,part_number,type,serial_number component\\(chassis_resource_name=wf-nashville\\)`; 

@data=split(/\n/, $input); 

foreach my $token (@data){ 
    @data_ = split(/\|/,$token); 
    my %fields = (
    "model" => $data_[0], 
    "partNumber" => $data_[1], 
    "type" => $data_[2], 
    "serialNumber" => $data_[3], 
); 
    push @index_, \%fields; 
} 

use Data::Dump; 
dd \@index_; 

출력

[ 
    { 
    model => "25 records found.", 
    partNumber => undef, 
    serialNumber => undef, 
    type => undef, 
    }, 
    { 
    model => "model     ", 
    partNumber => "part_number ", 
    serialNumber => "serial_number ", 
    type => "type    ", 
    }, 
    { 
    model => ("-" x 22), 
    partNumber => "--------------", 
    serialNumber => "----------------", 
    type => "-----------------", 
    }, 

Answer 1

나는 당신이 물어 그러나이 할 것입니다, 당신은이 간단한 문제를 직접 해결하기 위해 전혀 노력을하지 않은 것으로 보인다 매우 실망입니다.

use strict; 
use warnings; 

my @data; 

while (<DATA>) { 
    my %fields; 
    @fields{qw/ model PartNumber type serialNumber /} = /[^\s|]+/g; 
    push @data, \%fields if $fields{PartNumber} =~ /\d/; 
} 

use Data::Dump; 
dd \@data; 


__DATA__ 
model     |part_number |type    |serial_number | 
----------------------|--------------|-----------------|----------------| 
SCBE-MX-S    |750-031391 |CB    |ZV1111   | 
SCBE-MX-S    |750-031391 |CB    |ZR1111   | 
SCBE-MX-S    |750-031391 |CB    |ZV1111   | 

출력

[ 
    { 
    model => "SCBE-MX-S", 
    PartNumber => "750-031391", 
    serialNumber => "ZV1111", 
    type => "CB", 
    }, 
    { 
    model => "SCBE-MX-S", 
    PartNumber => "750-031391", 
    serialNumber => "ZR1111", 
    type => "CB", 
    }, 
    { 
    model => "SCBE-MX-S", 
    PartNumber => "750-031391", 
    serialNumber => "ZV1111", 
    type => "CB", 
    }, 
]