Discussion :

[GillesANDRE]

bonjour

je souhaite trouver des chaînes du type "0000:81 B2 B2 33 36 B2 35 39 B8 B8 39 30 B1", donc 0000:81 suivi de 12 blocs de 2 caractères séparés par un espace, le 2e caractère de chaque bloc étant un chiffre. Ce sont ces chiffres qui m'intéressent pour la suite du traitement.

Naïvement, je code :
if(/0000: 81(?: .(\d)){12}/) { print "$1$2 $3$4 $5$6 $7$8 $9$10 $11$12\n"; }

Pas de chance, ça ne me sort que le 12e chiffre. Apparemment, à chaque fois qu'il trouve une des 12 occurences du motif, il écrase $1 avec le nouveau chiffre trouvé.

Je peux écrire 12 fois mon motif mais c'est contraire à l'élégance la plus élémentaire.

Merci d'avance pour vos idées...

[PadawanInPerl]

..

[Dimitry.e]

Pourquoi n'utilises-tu pas un opérateur de répétition comme *, +, ou les accolades ?

[GillesANDRE]

Ben c'est ce que je fais dans :

(/0000: 81(?: .(\d)){12}/)

Pour moi le {12} fait chercher 12x le motif entre parenthèses qui précède :

(?: .(\d))

donc un espace, un caractère, un chiffre.
Ca ça marche bien. Ce qui ne marche pas, c'est l' "enregistrement" des 12 chiffres par (\d) : au lieu de me les mettre dans $1, $2...$12, il ne met que le dernier dans $1 et rien dans $2...$12.

En espérant que c'est plus clair comme ça....

[Dimitry.e]

Erratum. J'ai parlé beaucoup trop vite...

Je n'ai pas souvenir que ce soit possible de répéter un matching.
Par contre, tu peux t'en sortir facilement avec map :

Code :

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

1
2
3
 
my $s = "0000:81 B2 B2 33 36 B2 35 39 B8 B8 39 30 B1";
my @l = map { /^.(\d)$/ } split( ' ', $s );

[GillesANDRE]

merci