[Moscow.pm] Хранение сложных структур

[Alexander Lourier]

В письме Thursday 24 June 2010 16:18:38 Denis Davydov написал:

> Здравствуйте!
>
> Как лучше поступить? Надо хранить массив подобных структур в файле (и
> доставать, если надо):
>
> $VAR1 = bless( {
>                   'bandwidth' => bless( {
>                                         'out' => 34,
>                                         'in' => 10
>                                       }, 'Customer::Network::Bandwidth' ),
>                   'customer' => bless( {
>                                        'status' => 0,
>                                        'name' =>
> "\x{422}\x{435}\x{441}\x{442}",
>                                        'cid' => 5
>                                      }, 'Customer' ),
>                   'prefix' => '192.168.0.1/30'
>                 }, 'Customer::Network' );
>
> Как лучше поступить? Что использовать? Вариант с DBI отпадает (нужно
> именно в файл). Как я понял, JSON::XS не подойдет.

use Storable;
print F Storable::nfreeze($VAR1)

-- 
Alexander Lourier, http://aml.rulezz.ru/