getBytes() en perl ?

Bonjour,

J'essaye d'obtenir le même résultat que la fonction System.Text.Encoding.Default.GetBytes() de VB.net mais en perl.

J'ai beau luter avec pack et unpack je n'arrive pas a trouver les bonnes options.

Mon objectif et de convertir un string en array de bytes (ce que fais getBytes).
Voici mon string que je veux convertir : ët¤A7w`_
EDIT :
J'utilise une petite fonction qui me permet de convertir mon tableau de bytes fournis par getBytes en Hexa :

Code:

---

1 2 3

For i = 0 To bytes.Length - 1 Console.Write("{0:X2} ", bytes(i)) Next i

---

Et voici ce que retourne cette fonction : EB74A4413777605F

En fait j'ai besoin
1 / Une solution en perl pour faire un getbyte() = Créer un tableau de bytes à partir d'un string.
2 / Convertir ce tableau en Hexa pour comparer le résultat.

Des idées ?

Ca ressemble plutôt à une conversion de bytes en hexa que l'inverse.
Je viens d'essayer ça, mais le code hexa produit ne correspond pas

Code:

---

1 2 3 4 5 6

use strict; my $str='ët¤A7w`_'; foreach my $car (unpack('C*',$str)){ print sprintf("%1x",$car); }

---

J'obtiens bien 605f pour les derniers caractères, ce qui correspond bien aux derniers caractères `_ en hexadécimal. La conversion marche pour ce qui est ascii. Visiblement, l'encodage (utf8,cp12xx,isoxxxx) va avoir une importance.

C'est exact, j'ai mal expliqué. Merci :)
En fait j'utilise une autre fonction qui me permet de convertir les byte obtenue avec getbytes en Hexa.

Ce qui donne une boucle en VB :

Code:

---

1 2 3

For i = 0 To bytes.Length - 1 Console.Write("{0:X2} ", bytes(i)) Next i

---

En fait j'ai besoin
1 / Une solution en perl pour faire un getbyte() = Créer un tableau de bytes à partir d'un string.
2 / Convertir ce tableau en Hexa pour comparer le résultat.

Solution :

Code:

---

1 2 3 4 5 6 7

my $ciphertext = ët¤A7w`_   my @myArray=unpack('C*', $ciphertext); # voici le getbyte()   foreach my $car (@myArray){ print sprintf("%1x",$car); }

---

Merci, merci, merci.