Bonjour,

Je suis confronté à un problème dont je n'arrive pas à résoudre en Perl, et je me tourne vers ceux qui pourraient m'aider à le résoudre:

Je dois modifier le contenu du fichier en tenant compte du premier élément de chaque ligne :
je m'explique par un exemple:

  • Contenu initial du fichier A.in (3 champs séparés avec des tabulations)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Fabricant     x       y
 
AFY           30      17
AFY           21      97
AFY            9       43
 
BXR         117     927
BXR          29         6
BXR          11      808
BXR         416       23
BXR         219       83
BXR          13        99
et j'aimerais le convertir en

  • fichier A.out (4 champs séparés avec des tabulations)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Fabricant     x       y           Produit
 
AFY           30      17         AFY_1
AFY           21      97         AFY_2
AFY            9       43         AFY_3
 
BXR         117     927        BXR_1
BXR          29         6        BXR_2
BXR          11      808        BXR_3
BXR         416       23        BXR_4
BXR         219       83        BXR_5
BXR          13        99        BXR_6