Oi boa noite! Fiz um programa em perl para imprimir as linhas de um arquivo que estão repetidas, mas não está imprimindo nada e eu não sei o motivo. Alguém poderia me ajudar por favor?
%mirna_snp;
open (ARQ, "SNPs_validados.csv") or die "não e possivel abrir o arquivo\n";
while ($linha = <ARQ>) {
chomp ($linha);
$cont = 0;
($snp, $gene, $mirna, @resto) = split (/,/, $linha);
$snp =~ s/\s//g;
$gene =~ s/\s//g;
$mirna =~ s/\s//g;
#print "$snp\n";
$mirna_snp{$snp . "@" . $mirna} = $gene;
if (!exists ($mirna_snp{$snp . "@" . $mirna})) {
$cont = 1;
}
#elsif (exists ($mirna_snp{$snp . "@" . $mirna})) {
else {
$cont += 1;
}
}
if ($cont > 1) {
foreach $key (keys(%mirna_snp)) {
print "$key\t$mirna_snp { $snp " . '@' . " $mirna }\n";
}
}
close (ARQ);
