Perl 如何从CSV文件中删除重复值？

我必须打开一个csv文件并以散列的形式给出我的输出。我已经完成了这一部分，现在我需要将我文件的所有内容放入一个变量减去副本。 我该怎么做

open FILE, " < abc.csv" or die $!;
# Reading content from CSV file
my @genes = <FILE>;
# Removing the information header from the CSV file contents
shift (@genes); 

print "my %hash = ( \n";

foreach(@genes){
    chomp;
    my @genes = split(':',$_);
    if(@genes != 25){
        next;
    }

    my $amino_acid = join('","',split(/,/,$genes[4]));      


    print "$genes[2]=> [$genes[0],$genes[1],[$group]],\n";

}

打开文件，“[$genes[0]，$genes[1]，$group]]，\n”；
}

尝试执行此操作以删除数组中的重复项并将其转换为字符串：

---

您似乎对何时使用哪个数组感到困惑。

@genetic\u code

和

@genes

。也许您应该在发布代码之前决定如何使用它们，并避免发布没有任何作用的代码。您试图将存储格式从csv更改为perl代码的意图是什么？perl代码不是序列化您的最佳方式r数据。模糊的标题不太可能对网站的未来访问者有用。可能重复

sub uniq {
    return keys %{{ map { $_ => 1 } @_ }};
}

my $string = join " ", uniq @my_array;
print $string;