Paula Prieto Oliveira

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);