小编Sha*_*son的帖子

我需要在perl哈希中找到重复的值,然后在该计数> 1时输出键/值对和相关的重复计数.

(我可以留下我尝试过的代码样本,但这只会导致大规模的混乱和可能无法控制的笑声,我真的希望通过一些相似的自尊来实现它.)

哈希键/值如下所示:

%hash = qw('FHDJ-124H' => 'hostname1', 'HJDHUR-87878' => 'hostname2', 'HGHDJH-874673' => 'hostname1');

我想要的输出是:

2 duplicates found for hostname1
    FHDJ-124H
    HGHDJH-874673

在Solaris上使用perl 5.6 10.不允许升级或加载perl mod的严格控制的生产环境.(转移到5.8的变更请求大约需要6个月).

非常感谢!

我正在perl脚本中执行一个命令,当该命令完成时,会向STDOUT发送一个问题,要求Y或N回答问题.如果没有给出答案(即我只是结束脚本),那么我们在shell中有一个等待答案的挂起进程.我怎样才能提供所需的Y答案？

perl v5.8.4 solaris 10