Discussion :

[mashu]

Bonjour,

je cherche à découper une chaine d'héxadécimaux tous les 2 caractères, pour mettre chaque binome de caractères trouvé dans un tableau. Ma chaine mesure n caracteres...

ex:

Code :

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

my $hexa = "0123456789ABCDEF...";

je veux avoir

Code :

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

1
2
3
4
5
6
$var01 = 01;
$var01 = 23;
$var02 = 45;
$var03 = 67;
$var04 = 89;
...

pour pouvoir comparer plus tard chaque élément à d'autres résultats...

J'ai essayé un while avec un split dans une expr.rég, mais je n'y arrive pas.
Si quelqu'un à une idée...

Merci.

[Jasmine80]

je cherche à découper une chaine d'héxadécimaux tous les 2 caractères

Ta chaîne a-t'elle toujous un nombre paire de caractères?
.. que fait-on dans le cas contraire?

Code :

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

1
2
my $hexa = "0123456789ABCDEF";
my @list = ($hexa =~ /(\w{2})/g);

\w contient les caractères alphanumériques et l'underscore. Il équivaut donc à [a-zA-Z1-9_] mais dans ton cas, tu pourrais également utiliser [a-zA-Z1-9] (voire [a-z1-9_])... \w est quand même plus simple (même si il a l'underscore en trop).

[mashu]

Ma chaine peut etre paire ou impaire. Si elle est impaire, le dernier binome de mon tableau aura une valeur d'1 seul caractere...

Sinon ton code fonctionne bien
Je m'entetais a utiliser un split...
Et j'utilise bien [1-9A-F]...

Merci

[Jasmine80]

Ma chaine peut etre paire ou impaire. Si elle est impaire, le dernier binome de mon tableau aura une valeur d'1 seul caractere...

Fais attention, mon code ne récupère que les caractères en binôme, tu ne peux donc pas l'utiliser tel quel, essaie de le modifier.

Et j'utilise bien [1-9A-F]...

... rajoute bien le zéro

[Jasmine80]

Ca donne quoi avec ton split?
Sinon, voici l'expression régulière correcte.

Code :

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

my @list = ($hexa =~ /([A-Z0-9][A-Z0-9]?)/g);

[mashu]

Non et puis c'est bon, en cas "d'impairité", si la derniere valeur du tableau n'est pas récupérée ca n'est pas tres grave...

[mashu]

... rajoute bien le zéro

Oui oui il etait bien présent dans mon code

[Jasmine80]

Ma chaine peut etre paire ou impaire. Si elle est impaire, le dernier binome de mon tableau aura une valeur d'1 seul caractere.

...

Non et puis c'est bon, en cas "d'impairité", si la derniere valeur du tableau n'est pas récupérée ca n'est pas tres grave...

Faudrait savoir ce que tu veux, enfin tu as maintenant les 2 expreg. Problème résolu alors? Indique le.

[Jedai]

Pour rigoler :

Code :

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

1
2
my $iostr = IO::Scalar->new(\$hexa);
my @parts = do { local $/ = \2; <$iostr> };

--
Jedaï