my %entries = ();
foreach my $alias (@aliases) {
add($alias->{email}, $alias->{fullname});
foreach my $name (split /\s/, $alias->{fullname}) {
add($name, $alias->{fullname});
if (lc($name) ne $name) {
add(lc($name), $alias->{fullname});
}
}
}
my %keyword;
tie(%keyword, 'DB_File', "byKey.db",
O_RDWR|O_CREAT|O_TRUNC, 0660, $DB_HASH);
foreach my $key (keys %entries) {
eval {
$keyword{$key} = join($sep, keys %{$entries{$key}});
};
print "Error: $@\n" if $@;
}
untie %keyword;
sub add {
my ($key, $fullname) = @_;
${$entries{$key}}{$fullname} = 1;
}
|