Discussion :

[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__

[Woufeil]

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

[Fluxy]

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.

[Woufeil]

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

[yjuliet]

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 :

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

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

Ensuite, tu explose ta chaine avec la fonction split :

Code :

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

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

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

Code :

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

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.

[Jedai]

Code :

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

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 :

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

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 :

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

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ï