VPF::как создать копию сложной структуры данных

saint

Дата 4.9.2005, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 2.9.2005

Репутация: нет
Всего: нет

Я использую сложную логическую структуру содержащую многоуровневые ссылки вперемешку с данными. Если ли какой-то готовый способ для копирования сего хозяйства, а то у меня все информационные единицы, отвечающие данной структуре, в единственном экземпляре выходят smile

sharq

Дата 4.9.2005, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

saint приведи пример структуры, по идеи в perl все можно. smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Ivan Kolesnikov

Дата 5.9.2005, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

Репутация: 3
Всего: 6

Как я понял у тебя есть сложная структура данных, содержащая хеши, массивы, скаляры и указатели на них.
Посмотри модуль со CPAN Storable;
Сам я не использовал (прочитал в "Perl библиотека программиста"):

Код


use Storable;
$r2 = dclone($r1);

Это сообщение отредактировал(а) Ivan Kolesnikov - 5.9.2005, 08:55

--------------------

sharq

Дата 5.9.2005, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

saint если речь идет о дампе, то

Код


#(c) j256
#
#Как получить бинарный дамп хеша или массива на Perl
  use Storable;
#Запись/чтение дампа в файл.
   store (\%table, 'file');  $hashref = retrieve('file');
   lock_store (\%table, 'file');  $hashref = lock_retrieve('file');
#Запись/чтение дампа в ранее открытый файл.
   store_fd (\%table, \*FILE); $hashref = fd_retrieve(\*FILE);
#Запись/чтение дампа в скалярную переменную
#(удобно для использования для привязки сложной структуры к ключу в DB_File или BerkeleyDB).
   $hash_dump = freeze (\%table); $hash_ref = thaw($hash_dump);

#Если нужно получить дамп в символьном "perl sources"-виде для использования в eval или print: use Data::Dumper;

--------------------

[color=gray]There's More Than One Way To Do It[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »