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.
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; }
PS : je suis sous UNIX.
Partager