perl - CSV ファイルから重複する値を削除するにはどうすればよいですか?

Question

私は 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";

}

Answer 1

これを実行して、配列内の重複を削除し、文字列に変換してみてください:

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

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