Perl & Regex

Bonjour à tous,

J'aimerais savoir comment je peux réaliser ceci en perl :

J'ai dans une ligne la chaine suivante :

5013179;GIBERT PATRICIA;0;41100000;25 RES DE MONTGERMONT;;77930;SAINT SAUVEUR SUR ECOLE;CL;30002;06952;0000005793L;58

Je souhaite récupérer chaque champ entre les ; dans un tableau indexé.

Exemple :

%tab = ( num => 5013179, nom => "GIBERT PATRICIA", type => 0 etc....)

Je vous remercie & vous souhaitent une bonne journée.

Flux__

Bonjour,

Pour faire ceci, découpe ta chaîne avec la fonction split. Ensuite, pour transformer ton tableau obtenur avec split en table de hachage, tu peux le faire avec la fonction map suivi d'un bloc ;)

Merci,

Je débute en perl & pour trouver une aide aussi bien faite que php.net, c'est dur.

Encore merci, je post de nouveau si pbs

Bonne journée.

Si tu cherches de l'aide, tu as toqué à la bonne porte ;)
Je te conseille l'excellent tutoriel de Sylvain Lhullier ainsi que notre FAQ. Ces deux ressources sont très riches et adaptés aux débutants en Perl, et même en programmation.

Je te conseille très vivement leur lecture ;)

Citation:

---

Envoyé par Fluxy

Bonjour à tous,

J'aimerais savoir comment je peux réaliser ceci en perl :

J'ai dans une ligne la chaine suivante :

5013179;GIBERT PATRICIA;0;41100000;25 RES DE MONTGERMONT;;77930;SAINT SAUVEUR SUR ECOLE;CL;30002;06952;0000005793L;58

Je souhaite récupérer chaque champ entre les ; dans un tableau indexé.

Exemple :

%tab = ( num => 5013179, nom => "GIBERT PATRICIA", type => 0 etc....)

Je vous remercie & vous souhaitent une bonne journée.

Flux__

---

Dans un premier temps, tu peux créer un tableau de noms de champ :

Code:

---

@tabNoms = ('num','nom','type', ...);

---

Ensuite, tu explose ta chaine avec la fonction split :

Code:

---

@ligneExplosee = split(";", $ligne);

---

Il te reste enfin à générer ta table de hash :

Code:

---

1 2 3 4

for ($i=0; $i<@ligneExplosee; $i++) { $tableHashee{$tabNoms[$i]} = $ligneExplosee[$i]; }

---

Ceci n'est qu'une proposition, assez mal écrite mais je l'espère compréhensible.

Citation:

---

Envoyé par yjuliet

Code:

---

1 2 3 4

for ($i=0; $i<@ligneExplosee; $i++) { $tableHashee{$tabNoms[$i]} = $ligneExplosee[$i]; }

---

Ceci n'est qu'une proposition, assez mal écrite mais je l'espère compréhensible.

---

Si tu veux faire légèrement plus élégant, tu peux faire directement :

Code:

---

1 2 3

my %tableHashee; @tableHashee{@tabNoms} = @ligneExplosee;

---

En fait s'il s'agit d'une opération que tu ne répètes pas et si tu n'as pas vraiment besoin de @tabNoms, tu peux te contenter de :

Code:

---

1 2 3 4 5 6 7

my @records; while( my $line = <$input_file> ){ my %hash; @hash{ "num", "nom", ... } = split ";", $line; push @records, \%hash; }

---

Ou quelque chose comme ça...

--
Jedaï