perl DBM файлы !

Всем привет!

Подскажите почему у меня не получается засунуть в один хеш другой хеш

Code:

#!/usr/bin/perl

use DB_File;

$db = "user.db";
tie(%db, 'DB_File',$db);

%ss = ('aaa'=>"ffffffff");

$db{user} = \%ss;

print $db{user}{aaa};

 

Скорее всего потому что ты скопировал адрес хеша ss, а не сам хеш:

Code:

#!/usr/bin/perl
use DB_File;
$\ = $/;
$db = "user.db";
tie(%db, 'DB_File',$db);
%ss = ('aaa'=>"ffffffff");
$db{user} = \%ss;
print "\%ss = ".\%ss;
print "%db = ";
print "\t".$_."->".$db{$_} foreach (keys %db);
print $db{user};
print $ss{aaa};
print $db{user}->{aaa};
print $_ foreach (keys %{$db{user}});
print "-----";