Discussion :

[ddouet2000]

Bonjour,

C’est mon premier Post sur Developpez, ça se fête !!
Je suis débutant en perl, et je me retrouve forcement face à un souci : J’explique…

J’ai 1 fichiers CSV (fichier source) tel que :

NOM;PRENOM;MOBILE;PAYS

Exemple : dupont;david;1234567890;FRA

J’aurai besoin de modifier le numéro de MOBILE en format international en fonction du champ PAYS (4ieme champ) de l’entrée.

ICI : +33 1234567890

Je pensais de passer par une table de transcodification (PAYS;INDICE) pour récupérer l’INDICE en fonction du PAYS mais ensuite, je n’arrive pas à récupérer le champ MOBILE pour le concaténer et former le numéro en format international… Je n'arrive pas à passer en parametre le champs MOBILE pour le récuperer par la suite ...

Auriez-vous déjà rencontré un problème de ce genre ?
Merci de votre aide.

[djibril]

si tu est sur que ton information est toujours en 4 eme colonne, alors, tu peux faire un split d'une ligne et recuperer la colonne 5 via un split.

Allez au boulot (lecture, fichier temporaire ecriture de fichier) , split.
voilà quelques pistes.
propose nous un code et bienvenu à toi?

[zoulai]

Moi j'aime bien faire des hachages pour traiter ce genre de choses...

genre:

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
 
my %transcode=(
           FRA=>0033
           SPA=>0034
);
 
#et pour chaque ligne de ton tableau tu vas chercher le bon code..
#genre
 
open(FIC, 'tonfichier.txt'); 
 
foreach my $line (<FENT> ) { 
    my @liste_infos=split (";",$line);
    $liste_infos[2]=~s/^0/$transcode{$liste_infos[3]}/;     # si les numeros 
}                                                                             #commencent par 
                                               # un 0 comme en france, sinon il faut faire
                                               # une concatenation simple...

Ou un truc de ce genre
@+
PS tu vois de suite que le pb c'sst que ta liste est ecrasée a chaque tour de manivelle, a toi d'en faire quelque chose...

[ddouet2000]

Ouah !!

Pour un début en perl c'est assez costaud mais j'ai tout de même compris

J'ai réussi à faire ce que je cherchais.
Maintenant je me penche sur des hachages de hachages... moins évidant mais avec tone exemple , j'ai les bases !!

Merci beaucoup zoulai!!