Население Hash хэшей

Question

Как заселить хэш хэшей ниже о/р: O/P: -

InterfaceName : Ethernet 
Name   : HP FlexFabric 10Gb 2-port 554FLB Adapter 
MAC   : 00:17:A4:77:00:28 
IP   : 169.254.39.166 
PNPDeviceID : PCI\VEN_19A2&DEV_0710&SUBSYS_337B103C&REV_01\4&2E&0&0160 
Manufacturer : Emulex 
InterfaceName : Ethernet 2 
Name   : HP FlexFabric 10Gb 2-port 554FLB Adapter #2 
MAC   : 00:17:A4:77:00:26 
IP   : 10.10.2.122 
PNPDeviceID : PCI\VEN_19A2&DEV_0710&SUBSYS_337B103C&REV_01\4&2E&0&0060 
Manufacturer : Emulex 
InterfaceName : Ethernet 5 
Name   : HP Flex-10 10Gb 2-port 530M Adapter #58 
MAC   : 00:17:A4:77:00:2A 
IP   : 10.10.2.121 
PNPDeviceID : EBDRV\L2ND&PCI_168E14E4&SUBSYS_17A5103C&REV_10\5&390687C9&0&20050500 
Manufacturer : Hewlett-Packard Company 
InterfaceName : Ethernet 6 
Name   : HP Flex-10 10Gb 2-port 530M Adapter #59 
MAC   : 00:17:A4:77:00:2C 
IP   : 169.254.92.18 
PNPDeviceID : EBDRV\L2ND&PCI_168E14E4&SUBSYS_17A5103C&REV_10\5&2CC241CC&0&20050500 
Manufacturer : Hewlett-Packard Company 
InterfaceName : Ethernet 9 
Name   : HP FlexFabric 10Gb 2-port 534M Adapter #61 
MAC   : AC:16:2D:7D:CA:FC 
IP   : 169.254.229.98 
PNPDeviceID : EBDRV\L2ND&PCI_168E14E4&SUBSYS_1933103C&REV_10\5&31405534&0&20050800 
Manufacturer : Hewlett-Packard Company 
InterfaceName : Ethernet 10 
Name   : HP FlexFabric 10Gb 2-port 534M Adapter #62 
MAC   : AC:16:2D:7D:CA:F8 
IP   : 169.254.203.212 
PNPDeviceID : EBDRV\L2ND&PCI_168E14E4&SUBSYS_1933103C&REV_10\5&E3EB2D7&0&20050800 
Manufacturer : Hewlett-Packard Company** 

Hash хэшей, которые мне нужны в формате ниже.

%hash = (Ethernet => { 
    Name => “HP Flex-10 10Gb 2-port 530M Adapter #58”, 
    MAC => “00:17:A4:77:00:28”, 
    IP =>  “ 169.254.39.166”, 
    PNPDeviceID => “PCI\VEN_19A2&DEV_0710&SUBSYS_337B103C&REV_01\4&2E&0&0160” 
    Manufacturer => “Emulex”}, 

Как и для Ethernet 1, 2 и так далее. );

Answer 1

Быстрый и грязный:

use warnings; 
use strict; 

local $/ = 'InterfaceName : '; 
my %master; 

while (<DATA>) { 
    my @fields = split(/\n/); 

    my $ifname = shift @fields; 

      pop(@fields) if defined $fields[-1] and $fields[-1] =~ /^\s+/; 

    for my $field (@fields) { 
       my ($key, $value) = split(/:/, $field, 2); 
       $master{$ifname}{$key} = $value; 
    } 
} 

use Data::Dumper; 
print Dumper(\%master); 

__DATA__ 
InterfaceName : Ethernet 
Name : HP FlexFabric 10Gb 2-port 554FLB Adapter 

бла, бла ....

Теперь вопросы?
Чтобы узнать, что такое $/, см. man perlvar.

Чтобы узнать, что такое split, см. perldoc -f split.

Чтобы узнать, что такое shift, см. perldoc -f shift.

$master{$ifname}{$key} является примером autovivification (Google это)

Answer 2

my $s = do { local $/; <> }; 
my %hash = map { 
    my (undef, $i, %h) = split /\s+:\s+|\n/; 
    $i ? ($i => \%h) :(); 
} 
split /InterfaceName/, $s; 

use Data::Dumper; print Dumper \%hash; 

выход

$VAR1 = { 
      'Ethernet' => { 
          'PNPDeviceID' => 'PCI\\VEN_19A2&DEV_0710&SUBSYS_337B103C&REV_01\\4&2E&0&0160 ', 
          'IP' => '169.254.39.166', 
          'Manufacturer' => 'Emulex ', 
          'MAC' => '00:17:A4:77:00:28 ', 
          'Name' => 'HP FlexFabric 10Gb 2-port 554FLB Adapter ' 
         }, 
...