Discussion :

[And_the_problem_is]

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.

[Haiti]

Hallu,

Soit ,tu changes de langage. Une fois j'ai fais deux scripts : un sh et un perl qui parcouraient des gros fichiers.
Et bien le sh a mis 1 heure alors que le perl a mis 5 heures.Pourtant on m'avait juré du contraire au point de vue des perfs.

Soit , Si tu veux garder ton perl Il faut que tu manipules des buffers de 100 lignes de ton fichier au lieu de manipuler tes 300 000 lignes dans ton algo.

[le troll Hebus]

salut

tu as essayé ligne à ligne?

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
 
open(FICHIER,"$fichier");
 
while(<FICHIER>)	{
 
	my $donnee = $_;
	$donnee =~ /^(.*)\t(.*)\t(.*)\t(.*)/;
 
   $hashnom1nom2{$1} = $2;
   $hashnom1nom2{$2} = $2;
   $hashnom2info1{$2}	=	$3;
   $hashnom2info2{$2}	=	$4;
}
 
close(FICHIER);

Christophe.

[arthurr]

etant donne la taille de ton fichier, la solution de Christophe_T me semble plus logique ...
tu devrais essayer !

[And_the_problem_is]

OK je vais essayer ça et sinon j'essaierais peut être d'y mettre un autre langage (ce qui étant donné mon niveau en informatique risque d'être l'escalade du mont Everest mais bon on verra).

Je vous remercie tous. Bonne journée