Perl的 - 從配置文件中的多行記錄讀取

我試圖在記錄的多線配置文件讀入一個Perl哈希陣列Perl的 - 從配置文件中的多行記錄讀取

示例配置文件：

record_1 
     phone=5551212 
     data=1234234 
    end_record_1 

    record_2 
     people_1=bob 
     people_2=jim 
     data=1234 
    end_record_2 

    record_3 
    people_1=sue 
    end_record_3

這裏的我在尋找什麼：

$myData{1}{"phone"} <--- 5551212 
$myData{1}{"data"} <--- 1234234 

$myData{2}{"people_1"} <--- bob 
... etc

什麼是最好的閱讀方式？模塊？正則表達式與多行匹配？蠻力？我站在下一步的領先地位。

來源

2012-11-05 Douglas

你爲什麼不顯示你的嘗試，我們可以對此有何評論？否則，就像爲你做功課一樣（不管這是否是家庭作業）。 – atk

這是一個非常奇怪的配置文件格式。 perl模塊[Config :: Any]（http://search.cpan.org/dist/Config-Any/）支持很多格式，我建議你遊說輸出你正在處理的格式的任何人以使用現有標準之一。 –

這裏有一個選項與您的數據集：

use strict; 
use warnings; 
use Data::Dumper; 

my %hash; 
{ 
    local $/ = ''; 
    while (<DATA>) { 
     my ($rec) = /record_(\d+)/; 
     $hash{$rec}{$1} = $2 while /(\S+)=(.+)/g; 
    } 
} 

print Dumper \%hash; 

__DATA__ 
record_1 
    phone=5551212 
    data=1234234 
end_record_1 

record_2 
    people_1=bob 
    people_2=jim 
    data=1234 
end_record_2 

record_3 
    people_1=sue 
end_record_3

輸出：

$VAR1 = { 
      '1' => { 
        'data' => '1234234', 
        'phone' => '5551212' 
       }, 
      '3' => { 
        'people_1' => 'sue' 
       }, 
      '2' => { 
        'people_1' => 'bob', 
        'data' => '1234', 
        'people_2' => 'jim' 
       } 
     };

在一個空行設置local $/ = ''結果被視爲在您的數據集「記錄分隔符」，所以我們可以在這些記錄上使用正則表達式來獲取哈希鍵/值的信息。

希望這會有所幫助！

來源

2012-11-05 02:47:03 Kenosis

很好地完成。我寫了類似的東西，並沒有想到使用'while /（\ S +）=（。+）/ g'。 – Nate

@Nate - 謝謝！ – Kenosis