Как проще сохранить hash в файл и потом прочитать его от туда

Как проще сохранить hash в файл и потом прочитать его от туда

Вариант 1. Сохраняем в DBM-файл:

Код

#!/usr/bin/perl -w dbmopen (%hash, "dbmbase", 0600) or die $!; $hash{new_key} = "New_string"; dbmclose(%hash) or die $!;

Читаем из DBM-файла:

Код

#!/usr/bin/perl -w dbmopen (%hash, "dbmbase", 0600) or die $!; #Вытворяем с хешем всё что душе угодно, все изменнения будут сохранены в файл dbmclose(%hash) or die $!;

======================================

Вариант 2. Сохраняем хеш в текстовый файл:

Код

#!/usr/bin/perl -w use strict; my(%hash) = ( 'key1' => 'value1',                         'key2' => 'value2',                         'key3' => 'value3', ); open (WRITE_HASH, ">yourfile.txt") or die $!; foreach (keys %hash) {      print WRITE_HASH "$_:$hash{$_}\n"; } close(WRITE_HASH) or die $!;

Считываем хеш из текстового файла:

Код

#!/usr/bin/perl -w use strict; my(%hash) = (); open(READ_HASH, "<yourfile.txt") or die $!;  while (<READ_HASH>) {    chomp( my($key, $value) = split(':'));    $hash{$key} = $value;  } close(READ_HASH) or die $!; #Выводим на экран ключи и значения хеша полученого из файла foreach (keys %hash) {  print "Ключ: $_ => Значение: $hash{$_}\n"; }

Но я думаю что гораздо проще воспользоваться вариантом номер 1. Хотя у файла DBM есть свои приимущества и недостатки, как и у текстового фала тоже.
Но разумеется есть еще способы сохранения и чтения данных из файла. Как гласит девиз перл - "Есть несколько способов сделать это".

Спасибо за внимание,
Денис

Это сообщение отредактировал(а) korob2001 - 1.5.2003, 21:47

Спасибо.
Но я думал есть способ проще.