今儿干活遇到的问题,需要对一个二维hash去重。以前用php搞,这玩意很容易,如今换了个perl,现成的函数就木有了…生生琢磨了俩钟头,还好给琢磨出来了。

比如一个hash(%hash),如下:

里面每一项的mark键值会有重复,想要把这些重复项去掉并存为列表。操作如下:

由于我还需要根据id来过滤,所以在grep里加上了一个条件。

后来需要对一个列表去重,那就简单了,稍加改造:

    分享到:

发表评论

电子邮件地址不会被公开。 必填项已用*标注