Как я могу удалить повторяющиеся значения в моем хэше в 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