Discussion :

[artiflo]

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 :

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

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 ?

[thierry.chich]

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 :

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

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.

[artiflo]

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 :

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

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

[artiflo]

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 :

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

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.