如何访问 Perl DBM 哈希中的随机元素？

Question

我有一个 Perl DBM 哈希，其中包含一个 URL 列表，我想从中随机选择负载平衡蜘蛛站点。因此，我想随机选择一个键，或者选择第 n 个元素（这样我就可以随机化 n）。

我知道这违背了哈希的概念，但这可能吗？

注意：错过了一个有价值的观点，即散列大小太大而无法加载所有密钥来随机选择。

Answer 1

我认为任何 DBM 包都没有用于检索随机密钥或按索引号检索密钥的 API。您可以查找特定的键，或者您可以按照数据库选择返回它们的任何顺序读取所有键（如果数据库被修改，这可能会改变，并且可能或可能不足够“随机”以满足您的需要做）。

您可以通读所有键并选择一个，但这需要每次读取整个数据库（或至少其中相当大的一部分），而且这可能太慢了。

我认为您需要重新排列数据结构。

1. 您可以使用真正的 SQL 数据库
   （比如SQLite），所以你可以
   按顺序查找行
   行号和 URL。这会
   是最灵活的。

2. 您可以使用连续整数
   作为 DBM 文件的密钥。那
   会随机选择一个
   容易，但你不能再看
   按 URL 向上条目。

3. 您可以使用两个 DBM 文件：一个是您现在拥有的，另一个是由连续整数键入并以 URL 作为值的。 （实际上，由于 URL 看起来不像整数，因此您可以将两组记录存储在同一个 DBM 文件中，但这会使使用 each 的任何代码变得复杂。）这将使用两倍的磁盘空间，并且会使插入/删除条目变得更加复杂。除非由于某种原因无法安装 SQLite，否则采用方法 1 可能会更好。

Answer 2

从数组中选择随机元素更简单，因此您可以使用 keys(%foo) 来获取键数组并从中随机选择。

我相信这将从数组中返回一个随机元素 $x：

$x = $array[rand @array];

如果您想对数组进行洗牌，请考虑 List::Util::shuffle。请参阅 http://search.cpan.org/perldoc/List::Util#shuffle_LIST

Answer 3

当然，这是可能的。首先，获取键列表。然后，使用 List:: 中的 shuffle 随机化列表实用程序。

然后，循环按键。

如果键太多（因此将它们全部保存在列表中并且无法进行洗牌），请记住您使用的是绑定哈希。只需使用 each 即可迭代键值对。

顺序将是确定的，但据我所知，它不会按字母顺序或插入顺序。这本身也许就能让你得到你想要的东西。

Answer 4

您可以使用 DBM::Deep 而不是传统的数据库文件来保存您的数据。

tie %hash, "DBM::Deep", {
    file => "foo.db",
    locking => 1,
    autoflush => 1
};

# $hash{keys} = [ ... ]
# $hash{urls} = { ... } <- same as your current DB file.

my $like_old = $hash{urls}; # a ref to a hash you can use like your old hashref.
my $count = @{$hash{keys}};

这样您就可以根据需要提取随机值。