#!/usr/bin/perl -w

$infile=$ARGV[0];

print "\nFichier : $infile\n";

$compteur=0;
while (<>)
{
	chomp;
	if (/^>/)
	{
		$compteur++;
		$tab[$compteur]='';
	}
	else
	{
	    $tab[$compteur].=$_;
	}
}
shift @tab;
@tab=sort{length($a) <=> length($b)} @tab;

$min=length(shift(@tab));
$max=length(pop(@tab));

$sum=0;
foreach $x (@tab) {
    $sum +=  length($x);
}
$moy = $sum/$compteur;

print "Nombre de sequences : $compteur\n";
print "Longueur de la plus petite : $min\n";
print "Longueur de la plus grande : $max\n";
print "Longueur moyenne : $moy\n\n";
