#!/usr/bin/perl -w

# Ejercicio 4: Contar bases

$dna = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';

# Inicializa los contadores de cada una de las vocales.

$num_A = 0;

$num_C = 0;

$num_G = 0;

$num_T = 0;

$num_otros = 0;

# Dividimos la cadena en sus componentes mediante la función split

@bases = split('', $dna);

for ($i=0; $i<scalar @bases; $i++) {

if ($bases[$i] eq 'A') {$num_A++}

elsif ($bases[$i] eq 'C') {$num_C++}

elsif ($bases[$i] eq 'G') {$num_G++}

elsif ($bases[$i] eq 'T') {$num_T++}

else {$num_otros++}

}

# Mostrar resultados:

print "\n La cadena $dna tiene: \n \t$num_A adeninas \n\t$num_C citosinas \n\t$num_G guaninas y \n\t$num_T timinas";

exit;