chaîne à partir des codes ascii

Je veux construire la chaîne constituée des caractères dont ls codes ascii sont 0,1,2 et 3

Code:

---

my $s="\x00\x01\x02\x03";

---

cela fonctionne et

Code:

---

print unpack ("H*",$s)."\n";

---

me donne bien le résultat attendu

Code:

---

00010204

---

J'essaies maintenant de faire la même chose avec une boucle

Code:

---

1 2 3 4 5

my $s=""; foreach my $i (0..4){ $s.= sprintf("\\x%02x",$i); }

---

mais la chaîne $s ne contient pas la valeur attendue

Code:

---

print unpack ("H*",$s)."\n";

---

fournit pour résultat

Code:

---

5c7830305c7830315c7830325c7830335c783034

---

Code:

---

print "$s\n";

---

donne le résultat

Code:

---

\x00\x01\x02\x03\x04

---

5c est le code de antislash, 78 celui de x ...

Où est l'erreur ?

Merci de ma venir en aide

Pour transformer un nombre en caractère, il faut utiliser la fonction chr(). Ici ta première chaîne $s contient bien les caractères correspondant à 0, 1, 2, 3.
Mais ta deuxième chaîne contient "\x00\x01..." c'est à dire le caractère antislash, puis le caractère "x", puis deux zéros, puis ...
D'où tes résultats !

--
Jedaï

Effectivement en utilisant chr ça marche

Code:

---

1 2 3 4 5 6

my $s=""; for my $i (0..4){ $s .= chr($i); } print unpack("H*",$s)."\n";

---

et on obtient bien

Code:

---

0001020304

---

Merci