Discussion :

[ptonnerre]

Bonjour,

je recevais d'un prestataire des fichiers plats avec des champs pouvant contenir un nom de variable à traiter dans la suite du programme, exemple

Code :

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

LISTE_REGLEMENT_${XXXX}.csv

Avec le code suivant, je pouvais récupérer "XXXX" dans $var :

Code :

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

1
2
3
if ( $str =~ /^(.*)\$\{(.+)\}(.*)$/ ) {
    ( $prf, $var, $suf ) = ( $1, $2, $3);
}

Maintenant ces champs peuvent contenir n variables, dela forme :

Code :

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

'LISTE_REGLEMENT_${AA}${MM}.csv

pour récupérer AA et MM, ou

Code :

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

'LISTE_REGLEMENT_${AA}${MM}-phase1-${XXXX}.csv

pour récupérer AA, MM et XXXX

Est-il possible de résoudre cette demande en utilisant toujours les regex ?

[kolodz]

Il me semble plus prudent de faire du split simple...
En premier sur $
Qui te donnera :

Code :

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

{"LISTE_REGLEMENT_","{AA}","{MM}-phase1-","{XXXX}.csv"}

Tu ne prends pas le premier, car non précédé d'un $.
Et tu fais de nouveau un split sur les autres avec les caractères de séparation "-" et "." en ne conservant que le début.

Sauf si tes variable dispose de caractère de séparation du devrait être tranquille.

Lien vers la doc split Perl:
http://www.comp.leeds.ac.uk/Perl/split.html

Cordialement,
Patrick Kolodziejczyk.

[ptonnerre]

Merci pour ce 1er axe de recherche.

Je dois préciser que le contenu des champs est variable, ils peuvent du texte libre et de 1 à n variables :

Code :

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

{"LISTE_REGLEMENT_","{AA}","{MM}-phase1-","{XXXX}.csv"}

ou

Code :

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

ARRETE ${YYYY} du traitement ${ZZ} integré dans archive${RR}${ZZ}

Je dois pouvoir identifier toutes les chaînes intégrées dans les motifs ${} pour la suite du traitement

[kolodz]

A ce moment là faut poser des règles simple :
Pas de $ dans une variable.
Ainsi qu'une liste de délimiteur donnée : Espace, point...

Il faut que tu ai un moyen simple de déterminer si tu prend en compte "-phase1" ou " integré dans archive"

Si l'espace est un délimiteur, alors non. Sinon, c'est à prendre en compte de manière systématique.

Les règles à appliquées doivent être simple systématique et réalisable avec un papier et un stylo.

Cordialement,
Patrick Kolodziejczyk.

[ptonnerre]

J'ai pris le papier et le stylo
La règle est : identifier dans un champ variable toutes les valeurs matchant le motif ${.+}, quelles que soient leur position.

J'ai trouvé une solution (de contournement ? ) qui fonctionne.
Je me demande maintenant s'il n'y a pas une solution plus simple avec une regex et sans la structure while.

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
 
#!/usr/bin/perl -w
use strict;
 
my $str = 'LISTE_REGLEMENT_${AA}${MM}-phase1-${XXXX}.csvr';
my @vars;
 
while ( $str =~ /\$\{(.+?)\}/ ) { 
    my $var = $1; 
    $str =~ s/\$\{$var\}//;
    push(@vars, $var);
}
 
print join ("-", @vars);
print "\n";

Résultat :

Code :

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

1
2
3
 
$ ./test_regex2.pl 
AA-MM-XXXX

[Lolo78]

Bonjour,

Cette expression régulière en contexte de liste devrait le faire:

Code :

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

1
2
 
/\$\{([^}]+)\}/g

Un exemple illustré sous le debugger:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  DB<1>  $str = 'LISTE_REGLEMENT_${AA}${MM}-phase1-${XXXX}.csvr';
 
  DB<2>  @vars = $str =~ /\$\{([^}]+)\}/g;
 
  DB<3> x \@vars
0  ARRAY(0x600500d38)
   0  'AA'
   1  'MM'
   2  'XXXX'

A ta disposition pour te fournir des explications supplémentaires si tu ne comprends pas tout.