Как сохранить хэш в файл?

[softsafer]

Господа, как сохранить хэш, или другую структуру в файл, и как прочитать? Желательно без лишних телодвижений.

[alm]

Есть какой-то модуль на эту тему. Что-то типа DataDumper.

За название не ручаюсь, поищи на search.cpan.org

[alm]

Вот как он называется

Data::Dumper;

[alm]

Вот блин форум заменил

Попробуем повторить
Data :: Dumper

[Phoinix]

alm
Да, вот только, что-то про сохранение в файл в мануале ничего не сказано...

softsafer

Простой пример:

my @keys = keys %hash1;
open (FILE, ">./data.txt");
flock (FILE, 2);
foreach (@keys) {
print FILE $_,\'=\',$hash1{$_},"\\n"; # Исправлено:  print FILE, "$_=$hash1{$_}\\n";
}
close FILE;

open (FILE, "./data.txt");
my @data = <FILE>;
close FILE;
chomp @data;
my %hash2;
foreach (@data) {
  (my $key, my $value) = split(/=/,$_);
  $hash2{$key} = $value;
}

[Wyclef]

perldoc Storable

[NeoNox]

Phoinix а зачем ты порождаеш @keys?
print FILE, "$_=$hash1{$_}\\n"; Здесь синтаксический анализатор тебя пошлет читать perldoc
 
А насчет сохранения - не более сложно чем у тебя:
open DB, ">file" or die "Can\'t do that: $!";
print DB Data::Dumper-> Dump([$data], [qw($data)]);
close DB;

[NeoNox]

Wyclef можно тогда и DBM файл для этого использовать.
perldoc -f tie

[Phoinix]

NeoNox

а зачем ты порождаеш @keys?

Никогда не лишне знать функции keys и values для разбора хеш массива...

print FILE, "$_=$hash1{$_}\\n"; Здесь синтаксический анализатор тебя пошлет читать perldoc

Да послал... поспешил...

   print FILE $_,\'=\',$hash1{$_},"\\n";

[NeoNox]

Phoinix никогда не стоит нагружать память сервера бесполезной информацией. Эти значения ты запросто сможеш взять напрямую из хеша.
Кстати твой способ нагнется при использованиии сложной структуры (типа хеша хешей масивов )

[Wyclef]

NeoNox предпочитаю MLDBM - у него нет ограничения на объем данных.
В курсе

[NeoNox]

Wyclef сходу вопрос: а в MLDBM я могу поместь что-то типа

my $data = {
        \'dynamo\'=>{
                \'color\'=>\'blue\',
                \'name\'=>\'dynamo\',
                \'stadium\'=>\'Dynamo\'
                },
        \'spartak\'=>{
                \'color\'=>\'red\',
                \'name\'=>\'spartak\',
                \'stadium\'=>\'Luzhniki\'
                }
        };
?
Это чисто для спортивного интереса.

[Wyclef]

NeoNox
Легко

[Phoinix]

NeoNox

Кстати твой способ нагнется при использованиии сложной структуры

Не спорю, а я и не претендую, на то, что мой способ униварсальный и самый оптимальный, это просто вариант

никогда не стоит нагружать память сервера бесполезной информацией. Эти значения ты запросто сможеш взять напрямую из хеша.

Опять же не спорю, можно и так:

foreach (keys %hash) {...

Но так не столь наглядно IMHO... важен наслолько я понимаю принцип, а не готовый код...

[Wyclef]

Phoinix

use Storable;
store \\%table, \'file\';
$hashref = retrieve(\'file\');

Наглядно?