perl hash 中值比较大小,取出最大的数 不适用模块

如果不想使用模块，可以使用 Perl 的 `sort` 函数来实现。具体代码如下：

my %hash = (
    key1 => 10,
    key2 => 20,
    key3 => 15
);

my @sorted_values = sort {$a <=> $b} values %hash;
my $max_value = $sorted_values[-1];

print "The maximum value in the hash is: $max_value\n";

代码中，首先定义了一个哈希表 `%hash`，其中 key 为字符串，value 为数字。使用 `values` 函数获取哈希表中的所有 value 值，然后使用 `sort` 函数对其进行排序，排序规则为从小到大。最后，取出排序后的最后一个元素，即为哈希表中的最大值。最后输出结果。

注意：如果哈希表中存在字符串类型的 value，将会在排序时出现错误，因此在使用 `sort` 函数前需要确保哈希表中的 value 值都为数字类型。