Bonjour, je dois lire un fichier qui contient 4 colonnes, je dois pouvoir accéder au 4 valeurs sur chaque ligne jusqu'à la fin du fichier. Je fais comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
######## 1 ere partie
open(TOTO,"$fichier");
undef $/;
$donnee = <TOTO>;
close(TOTO);
 
######## 2 ieme partie
$i=0;
while ($donnee =~ /^(.*)\t(.*)\t(.*)\t(.*)\n+/gm)
{
	$col1[$i] = $1;
	$col1[$i] =~ tr /a-z/A-Z/;
	$col2[$i] = $2;
	$col3[$i] = $3;
	$col4[$i] = $4;
	$i++;
}
$nbretotalcontig=$i;
Le problème c'est que mon fichier fait 329197 lignes donc à l'allure où il va
j'ai compté qu'il mettrait environ 300 minutes pour finir la deuxieme partie. (5 minutes pour la première ça ca va).

Question comment faire pour qu'il aille plus vite ?

Merci d'avance.