Perl-сериализация и десериализация хэшей хэшей

Я пытаюсь сериализовать хэш хэшей, а затем десериализовать его, чтобы вернуть исходный хеш хэшей. Проблема в том, что всякий раз, когда я его десериализую, он добавляет автоматически сгенерированный $ var1, например.

оригинальный хэш

%hash=(flintstones => {
    husband   => "fred",
    pal       => "barney",
},
jetsons => {
    husband   => "george",
    wife      => "jane",
    "his boy" => "elroy",  
},
);

выходит как $VAR1 = { 'симпсоны' => { 'ребенок' => 'барт', 'жена' => 'мардж', 'муж' => 'гомер' }, 'кремни' => { 'муж' => 'фред', 'приятель' => 'барни' }, };

есть ли способ получить исходный хэш хэшей без $var1..??

5
задан user1547285 24 July 2012 в 01:49
поделиться