如何在Perl中实现Tie :: IxHash?

Eli*_*Eli 4 perl

我最近遇到了一个Perl的情况,使用保持顺序的哈希会使我的代码更易读,更容易使用.经过一番搜索,我发现了Tie :: IxHash CPAN模块,它完全符合我的要求.在我谨慎起见并开始使用它之前,我想更好地了解它是如何工作的以及我可以从中获得什么样的性能.

据我所知,有序关联数组通常被实现为尝试,我以前从未实际使用过,但确实知道它们的性能符合我的期望(我希望做大量的阅读和写作,并且需要永远记住最初插入的订单键).我的问题是我无法弄清楚这是否是Tie :: IxHash的制作方式,或者我应该从中获得什么样的性能,或者是否有一些更好/更清洁的选择(我真的不想保留一个)单独的数组和哈希来完成我需要的东西,因为这会产生丑陋的代码和空间效率低下).我也只是因为好奇心而好奇.如果它没有被实现为trie,它是如何实现的?我知道我可以涉及源代码,但我希望其他人已经这样做了,我猜我并不是唯一一个对这个答案感兴趣的人.

所以...想法?建议?建议吗?

FMc*_*FMc 9

一个领带:: IxHash对象是以直接的方式实现的,利用人们所期望的常规Perl的积木.具体地说,这样的对象是保持4个元素的祝福数组引用.

  • [0]用于存储用户散列键的哈希引用.只要模块需要检查密钥是否存在,就会使用它.

  • [1] 用于按顺序存储用户散列键的数组引用.

  • [2] 用于存储值的并行数组引用,也按顺序存储.

  • [3]一个整数,用于跟踪两个并行数组中的当前位置.迭代需要这个.

关于绩效,一个好的基准通常比投机更有价值.我的猜测是,最大的性能损失将伴随删除,因为持有有序键和值的数组将需要调整.