Discussion :

[Fabouney]

bonjour, soit cette syntaxe de ligne dans un fichier txt :

clé:12456|champ1=value1|champ2=value2|...
clé:87481|champ1=value1|champ2=value2|...

comment pourrais-je extraire le couple ($nom_champ,$valeur_champ) ?

on m'a proposé cette solution, qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$file="fichier.txt";open(BASE,"<$file");@fichier = <BASE>;close BASE;
foreach $ligne (@fichier){
    foreach $data (split('|',$ligne)) {
     local ($nom,$valeur)=split('=',$data);
     $tableau{$nom}=$valeur;
    }
}
 
$tableau{'nom'} contient dupont
etc....
si $nom="nom";
$tableau{$nom} contient dupont

Merci de me dire les éventuelles correction à apporter à ce bout de code, ou à apporté completement une autre solution, merci d'avance pour votre aide, à bientôt.


Fabien.

[gege2061]

Bonjour,

clé:12456|champ1=value1|champ2=value2|...
clé:87481|champ1=value1|champ2=value2|...

Tu as essayer avec les expressions régulières :
C'est mon premier essai alors on ne se moque pas

Code :

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

/clé:\d+(\|champ\d+=\w+)*/

Et les résultats sont dans $1...$9

Bon je ne pense pas que ça soit ça (c'est le champ\d+ qui me gène) enfin j'aurai essayer

[Fabouney]

j'ai pas trop essayé avec les expression régulière, mais bon j'partirai plus du principe que j'ai évoqué, avec les split().

[gege2061]

j'ai pas trop essayé avec les expression régulière, mais bon j'partirai plus du principe que j'ai évoqué, avec les split().

Dans ce cas, pour avoir la clé, il faut faire un split sur le caractère : et non =

[Fabouney]

mais non, lit bien mon post,

comment pourrais-je extraire le couple ($nom_champ,$valeur_champ) ?

je veux récupérer ce qui est de par est autre du "=" justement, donc le nom et la valeur.

[vic]

Salut,

Faire parcourir chaque ligne du fichier dans une boucle :

Code :

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

1
2
open(fich, "fichier.txt");
while($ligne = <fich>) {

Extraire la clé de la ligne :

Code :

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

1
2
    ($cle, $couples) = $ligne =~ /clé:(\d+)\|(.*)/;
    print "clé = $cle\n";

Ensuite extraire les couples :

Code :

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

1
2
3
4
    foreach (split /\|/, $couples) {
        ($champ, $valeur) = /(.*)=(.*)/;
        print "$champ = $valeur\n";
    }

Fin de la boucle :

Code :

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

}

Voilà