#!/usr/bin/perl
use strict;
use warnings;

# initialisation de la séquence:
print "Saisissez une séquence:\n";
my $seq = <>; 
chomp $seq;

my @adn = split("", $seq );

my $nbre_de_A = 0;
my $nbre_de_C = 0;
my $nbre_de_G = 0;
my $nbre_de_T = 0;
my $nbre_err = 0;

for my $base (@adn){
    if ( $base eq 'A' )
    {
        ++$nbre_de_A;
    }
    elsif ( $base eq 'C' )
    {
        ++$nbre_de_C;
    }
    elsif ( $base eq 'G' )
    {
        ++$nbre_de_G;
    }
    elsif ( $base eq 'T' )
    {
        ++$nbre_de_T;
    }
    else
    {
        print "!!!!!!!! Erreur - Je ne reconnais pas cette base : $base\n";
        ++$nbre_err;
    }
}

# Affichons les resultats
print "A = $nbre_de_A\n";
print "C = $nbre_de_C\n";
print "G = $nbre_de_G\n";
print "T = $nbre_de_T\n";
print "Erreurs = $nbre_err\n";
