如何在Perl中删除哈希中的重复值？

Question

我有一个300行的文本文件，其中100行被重复。我不知道如何在我的哈希中搜索并删除此重复项。

当我必须添加新代码行时，这是我的perl代码：

Answer 1

您可以简单地使用uniq()模块中的List::MoreUtils在数组中包含单个项目，并且最好在将它们作为哈希键之前删除重复的项目

类似这样的事情可以做到：

use strict;
use warnings;
use Data::Dumper;
use List::MoreUtils qw(uniq);

my %cathmin;

open (LIST, "<cath_min.txt") || die "[-] Can't open the file";
my @list = <LIST>; # load your array from your file
close LIST;

@list = uniq(@list); # remove duplicated items in array

foreach my $item (@list) {
  chomp $item;
  # here you can do what you want
}

print Dumper(\%cathmin); # check your hash contents