Discussion :

[k6971]

Bonjour

Je suis trés novice en Perl. Mon probléme est que j'au une liste de positions c'est à dire des portefeuilles avec leur numéro de centre(regroupement de ptf) et d'autres données représentées par des colonnes.

J'ai une deuxiéme liste avec tous les portefeuilles qui sont au nombre de 22000 et aussi leurs centres qui sont au nombre de 600, c'est à dire que dans un centre j'ai plusieurs portefeuilles.

Ce que je voudrai faire c'est prendre la premiere liste et copier toutes les données de cette liste mais en prenant soin de remplacer les portefeuilles et les centres qui sont dans la premiére liste par les portefeuilles et les centres qui sont dans la deuxiéme liste(Je ne le fais pas pour tous les ptf ce qui sont déjà dans la liste 1 je n'y touche pas je prends juste le delta).

Et je voudrai sortir un fichier par centre avec les portefuilles correspondant au centre et seulement à ce centre.

Un centre c'est un ensemble de ptf.

C'est trés urgent et vu la volumétrie plus de 8millions d'enregistrements on m'a dit que perl est le meilleur moyen.

[Woufeil]

Bonjour, peux tu nous donner un exemple pour tes deux fichiers ainsi que ce que tu aimerais obtenir.
Sans ça on ne peut pas t'aider à faire le script...

[k6971]

Merci de ta réponse

Voici un bout du premier fichier

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
20
21
22
23
24
25
26
27
28
29
30
31
 
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0

Voici un exemple du second fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
portefeuille_id|centre|
 ------------|---------|
|XXXXX   |YYY       |
|XXXXXX |YYY     |
|ZZZZZZZZZ |VVV |
|MMMMM   |VVV   |
|QMLKKK   |UUUU     |

Et ce que je voudrai avoir c'est pour chaque centre les portefeuilles qui correspondent cad pour le centre 50M

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6560	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6598	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	6541	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	874	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0	
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	485	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	4155	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	4155	0	0	0		
XXX	MM	QQ	OOOOOOOOOOO	DOL	G	4155	0	0	0

Et ceci pour chaque centre avec les bons portfeuilles qui correspondent. Un portefeuille n'appartient qu'à un seul centre donc je ne dois pas avoir un même portefuille dans deux centres différents.

Je voudrai aussi que la création des fichiers soit automatique dans le script pour chaque centre.

merci de vos coup de pouces.

[djibril]

je comprends pas tres bien ce que tu veux faire, peux tu reexpliquer? Surtout comment fais tu le lien entre tes deux fichiers pour obtenir tes fichiers finaux?

[k6971]

Bonjour Djibril

Voici mon script modifié

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
open(FILE, "<benResultPtfCentre.txt") || die "Erreur E/S : $!\n";
 
 
%centre;
%centreMap;
 
while ($ligne = <FILE>)
{
	my @allData = split(' ',$ligne);
	if(!defined($centre{$allData[1]}))
 		{
			#print "adding $allData[0] to centres \n";
			$centre{$allData[1]} = $allData[1] 
		}
}
close FILE;
 
open(MAPPTF, "<ShortTIA.ELI") || die "Erreur E/S : $!\n";
while($ligneMap = <MAPPTF>) 
	{
 
		my @allDataMap = split(' ',$ligneMap);
		#my @allDataMap = $ligneMap;
		#print "$ligneMap";
 
		$centreMap{$allDataMap[3]} = $allDataMap[3] ;
 
		open(OUTPUTFILEMAP, ">>$allDataMap[3].txt") || die "Erreur E/S : $!\n";
 
		print OUTPUTFILEMAP @allDataMap ,"\n";
		#print OUTPUTFILEMAP "\n";
		close OUTPUTFILEMAP;
	}
 
 
print "Fin\n";