Test sur un tableau...

								Cycle 1		
Nom	Date	Bu	P. relative	Bore	G1	G2	N1	N2	R/D	Cannaux
xxxxxxx	07/06/2013	66	86	1170	224	224	224	224	202	55
xxxxxxx	10/06/2013	198	98,5	1079	224	224	224	224	206	55
xxxxxxx	10/07/2013	1311	100,9	945	224	224	224	224	207	55
xxxxxxx	06/08/2013	2300	100,7	843	224	224	224	224	208	55
xxxxxxx	05/09/2013	3427	97,7	732	224	224	224	224	209	55
xxxxxxx	03/10/2013	4451	100,8	611	224	224	224	224	210	55
xxxxxxx	25/11/2013	6436	100,2	399	224	224xxxxxxx224	224	211	55
xxxxxxx	23/12/2013	7502	100,5	296	224	224	224	224	212	55
xxxxxxx	16/01/2014	8405	100,5	206	224	224	224	223,7	213	55
xxxxxxx	12/02/2014	9435	100,2	104	224	224	224	224	216	55
xxxxxxx	06/03/2014	10276	100,5	29	224	224	224	224	219	55
	Cycle 2									
Nom	Date	Bu	P. relative	Bore	G1	G2	N1	N2	R/D	Cannaux
xxxxxxx	06/05/2014	4,4	7,8	1808	224	224	224	224	212	55
xxxxxxx	11/05/2014	96	88,1	1293	224	224	224	224	200	55
xxxxxxx	13/05/2014	161	100,1	1238	224	224	224	224	205	55
xxxxxxx	19/05/2014	391	99,9	1186	224	224224	224	205	55

for($A=0;$A<$N+1;$A++){
	($cycle[$A]=$cycle[$A])=~s/\W//g;
	print "cycle $cycle[$A] \n";
	####CREATION DE LA LISTE RUB ###
	$ls="ls $home/cdf/rub/$Site/Tranche_$Tranche/$cycle[$A] > liste_rub";
	system ("$ls");
	open (FILE_IN_THE, "liste_rub") or die ("open: $!");##Meme manière pour le cycle, on écrit la liste des fichiers rubs sur un fichier
	@fichier=<FILE_IN_THE> ; ##On associe cette liste à un tableau
	$n=$#fichier;
	close(FILE_IN_THE);
	
	
	##Récupération des lignes de données###
	#Ce fichier a été cré via le programme Traitement avant
	open(DON, "$home/Donnees/$Site"."$Tranche");
	@fichier=<DON>; ##On associe tout ce fichier à un tableau
	close(DON);
	
	@donne=grep{$_=~/^$cycle[$A]/}@fichier; ##On récupere les lignes correpondant au cycle cherché
	
	#On initalise les valeurs
	@bu=0;
	@bu1=0;
	$evol=0;
	$tampon=0;

	
	##On prends les valeurs des BU qu'on rentre dans un tableau (bu)
	for($B=1;$B<$n+2;$B++){
		@ligne=split(" ",$donne[$B]);
		($ligne[2]=$ligne[2])=~s/\,/\./g; ##la troisieme case correspond au bu, donc on le récupére;
		##On encadre la valeur du bu de cette ligne puis on l'injecte dans le tableau correspondant		
		if($ligne[2]-$tampon<0){ ##Si cette relation n'est pas verifié, la valeur est fausse
			print "Error \n";	
		}
		else{
			$tampon=$ligne[2]; ###On change le tampon, la derniere valeur verifiée
			$bu[$B]=$ligne[2]; ##On infecte cette valeur dans notre tableau
			}
		}
		
		$evol=$#bu;
		print "Evol $evol \n";
		
		
		print "$bu1[1][1] \n";
		
		###Calcul et association des différents seuils à un tableau
		$Seuil[0]=150;
		$Seuil[1]=500; ###On donne les premiers
		$x=1;	
		for($y=2;$y<$evol-1;$y++){
			$Seuil[$y]=$x*1000; ###Les suivants suivent cette relation
			print "$Seuil[$y] \n";
			$x=$x+1;
			}
			
		for($y=0;$y<$evol-1;$y++){
			for($B=1;$B<$n+2;$B++){
				$bu1[$y]=grep{$bu[$B]>$Seuil[$y] && $bu[$B]<$Seuil[$y+1]}@bu
				}
			}
		
		
	}

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# création d'un tableau des seuils
my @seuils;
push(@seuils, 0, 150, 500);
my $n = 1000;
do {
    push @seuils, $n;
    $n = $n + 1000;
} while ($n <= 15000);

# remplissage de @db avec des hash, en excluant les
# données de Cycle 2
my @db;
while (<main::DATA>)
{
    if (/\s+Cycle 2/) {
        last;
    } elsif (/^.*\s+\d\d\/\d\d\/\d\d\d\d\s+(\d+,*\d*)\s+/) {
        $n = 0;
        while ($1 > $seuils[$n]) {
            $n++;
        }
        --$n;
        push @db, {
            "val"   => $1,
            "seuil" => $seuils[$n],
            "pas"   => $1 - $seuils[$n]
        };
    }
}
print Dumper(@db);

exit;                                                                                                                       

__END__
1       
Nom Date    Bu  P. relative Bore    G1  G2  N1  N2  R/D Cannaux
xxxxxxx 07/06/2013  66  86  1170    224 224 224 224 202 55
xxxxxxx 10/06/2013  198 98,5    1079    224 224 224 224 206 55
xxxxxxx 10/07/2013  1311    100,9   945 224 224 224 224 207 55
xxxxxxx 06/08/2013  2300    100,7   843 224 224 224 224 208 55
xxxxxxx 05/09/2013  3427    97,7    732 224 224 224 224 209 55
xxxxxxx 03/10/2013  4451    100,8   611 224 224 224 224 210 55
xxxxxxx 25/11/2013  6436    100,2   399 224 224xxxxxxx224   224 211 55
xxxxxxx 23/12/2013  7502    100,5   296 224 224 224 224 212 55
xxxxxxx 16/01/2014  8405    100,5   206 224 224 224 223,7   213 55
xxxxxxx 12/02/2014  9435    100,2   104 224 224 224 224 216 55
xxxxxxx 06/03/2014  10276   100,5   29  224 224 224 224 219 55
    Cycle 2                                                          
Nom Date    Bu  P. relative Bore    G1  G2  N1  N2  R/D Cannaux
xxxxxxx 06/05/2014  4,4 7,8 1808    224 224 224 224 212 55
xxxxxxx 11/05/2014  96  88,1    1293    224 224 224 224 200 55
xxxxxxx 13/05/2014  161 100,1   1238    224 224 224 224 205 55
xxxxxxx 19/05/2014  391 99,9    1186    224 224224  224 205 55