perl 判断一个hash是否为空

在 Perl 中，可以使用 `keys` 函数来判断一个哈希表是否为空。如果 `keys` 函数返回一个空列表，说明哈希表为空。例如：

my %hash = ();  # 定义一个空哈希表
if (keys %hash) {
    print "哈希表不为空\n";
} else {
    print "哈希表为空\n";
}

在上面的例子中，由于哈希表 `%hash` 是空的，`keys %hash` 返回一个空列表，因此会输出 "哈希表为空"。如果将 `%hash` 中添加一些键值对，就可以测试 `keys` 函数的判断结果了。