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;
}