#!/usr/bin/perl -w

# Ejercicio 2. Uso de arrays asociativos.

# 1.- Crear un array con 4 acidos nucleicos y su abreviatura.

%acidos_nuc = ("A", "adenina", "C", "citosina", "G", "guanina", "T", "timina");

# Como se puede observar la abreviatura se usa como clave

# y el nombre como contenido del array.

# Mostrar en pantalla el array

print "\nEstos son los 4 acidos: \n";

print %acidos_nuc;

# 2.- Insertar 1 más

$acidos_nuc{"U"} = "uracilo";

# Mostrar en pantalla el array

print "\nEstos son los 5 acidos: \n";

print %acidos_nuc;

print "\n";

# 3.- Eliminar la guanina

delete $acidos_nuc{"G"};

# Mostrar en pantalla el array

print "\nEstos son los 4 acidos: \n";

print %acidos_nuc;

print "\n";

# 4.- Imprimir los nombres de todos los acidos

@acidos= values %acidos_nuc;

# Mostrar en pantalla el array

print "\nEstos son los 4 acidos solos: @acidos \n";

print "\n";

# 5.- Imprimir los nombres de todas las abreviaturas

@abreviaturas= keys %acidos_nuc;

# Mostrar en pantalla el array

print "\nEstas son las 4 abreviaturas: @abreviaturas\n";

print "\n";

# 6.- Imprimir el número de elementos

# La función scalar funciona adecuadamente sobre arrays indexados,

# por ello la aplicamos al array @acidos.

$numero = scalar @acidos;

print "\nhay $numero acidos \n";

exit;