#!/usr/bin/perl -w
# 2003/12/16 - I. Dutour

# Ce script a besoin d'au moins un fichier sur la ligne de commande :
# 1) de quel type est ce fichier d'après vous ?
# 2) que calcule ce script ?

$total=0;
$longueur=0;
<>;
while(<>) {
    $total += tr/GCgc//;
    $longueur += length($_);
}
print "total     = $total\n";
print "longueur  = $longueur\n";
print "resultat  = ", $total/$longueur*100,"\n";
