Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
#######1ere partie
open(FICHIER,"$fichier");
undef $/;
$donnee = <FICHIER>;
close(FICHIER);
#######2 ieme partie
while ($donnee =~ /^(.*)\t(.*)\t(.*)\t(.*)\n+/gm)
{
	$hashnom1nom2{$1} = $2;
	$hashnom1nom2{$2} = $2;
	$hashnom2info1{$2}=$3;
	$hashnom2info2{$2}=$4;
}
Bonjour je dois lire un fichier de 329 000 lignes, il met 5 min pour la première partie et 4 h pour la seconde. 4 h c'est long alors si vous pouvez m'aider je vous en remercie d'avance.

PS : je suis sous UNIX.