Discussion :

[sconrad]

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

[iblis]

Idées :

Si tu es sûr d'avoir une ligne vide entre chaque paquet d'enregistrements, tu peux t'en servir pour réinitialiser ton compteur.

Si tu n'as pas de marqueur entre tes paquets d'enregistrements, tu peux utiliser une variable d'état (dernier fabriquant) pour savoir si tu as changé de paquet et le cas échéant réinitialiser ton compteur.

Si tes enregistrements d'un même groupe ne sont pas les uns à la suite des autres, tu peux utiliser un hash pour les répertorier et les compter.

Où est-ce un problème d'écriture en Perl ? Dans ce cas là tu dois nous dire ce qui te pose problème, lire le fichier, spliter les lignes, compter ?