[GNU] en PERL

		0         10        20        30        40        50
		|---------|---------|---------|---------|---------->
BAD            	|XXXX
MET2LWL        	|XXX
LD25VTI        	|X
LD45RDSON      	|X

# Parcour du HASH des tests
foreach $idx_t (keys %Les_Tests) {

        # Tri des noms de test en fonction du nb de fois qu'ils sont presents
        @test_occ = sort { $Les_Tests{$b} <=> $Les_Tests{$a} } keys %Les_Tests;

        push @nb_occ, split (/\t/, $Les_Tests{$idx_t});
        @nb_occ = sort {$b <=>$a} @nb_occ;
}
# Mise en forme Pareto
print OUTFILE "\t\t0         10        20        30        40        50\n";
print OUTFILE "\t\t|---------|---------|---------|---------|---------->\n";

for ($cpt_nb=0; $cpt_nb <= $#test_occ; $cpt_nb++) {
        # Impression du nom du test
        print OUTFILE "$test_occ[$cpt_nb]";
        # Creation des espaces (pour mise en forme)
        for ($cpt_i=0; $cpt_i < 10-length($test_occ[$cpt_nb]); $cpt_i++) {
                print OUTFILE " ";
        }
        print OUTFILE "\t|";
        # Impression des X qui symbolisent les Lots
        for ($cpt_c=0; $cpt_c < $nb_occ[$cpt_nb]; $cpt_c++) {
                print OUTFILE "X";
        }
        print OUTFILE "\n";
}

close($LECT);
close(OUTFILE);

# Faire une sortie graphique avec gnuplot !!

#gnuplot
set title "Pareto des Lots"
set terminal gif medium size
set xlabel "Tests rejetes"
set ylabel "Nombre Lots"
set xrange [$test_occ]
set yrange [0:50]
plot '-' with boxes
$nb_occ