如何从Perl中的数组中获取加权随机选择?

Cha*_*ter 2 random perl

我需要从数组中随机添加一些元素.我是通过随机化索引来做到这一点的$array[int(rand(100))].我希望更频繁地出现一些元素.我该怎么做?

我想到了在阵列中多次重复这些元素的愚蠢解决方案,但我相信你们可以做得更好.

Jam*_*son 5

您想要生成加权随机样本.链接的问题包括有无替换.