Multiplier une longue chaine hexa

**mashu** · 21/09/2009, 10h14

Bonjour,

je ne sais pas trop comment m'y prendre...

J'ai une chaine héxadécimale (env. 60 caracteres), et je dois calculer son double et l'afficher.

Je voulais la convertir en décimale pour que ca soit plus simple a multiplier par 2...

J'ai :

Code :

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

1
2
3
4
5
$test = "A12F4....5012B";                  
$test = hex("$test"); 
$test = $test*2;
$test = sprintf("%x",$test);
print "Double Hexa : $test\n";

Au final je dois donc obtenir :
"1425E...A0256"

Je rencontre comme pb "Integer overflow in hex number", qui apparement me dit que je dépasse la taille autorisée.

Un petit coup de main ne serait pas refus.

Merci.

**lennelei** · 21/09/2009, 10h46

Peut-être en passant plutôt par du binaire ? La conversion se fait simplement, et la multiplication aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $test="A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4";
my $test2="";
 
#conversion binaire
$test=~s/(.)/sprintf("%.4b",hex($1))/eg;
 
#multiplication par 2
$test2="000".$test."0";
 
#conversion retour en hexa
$test2=~s/(....)/sprintf("%x",oct("0b".$1))/eg;
 
print "test2 (hex): $test2 \n";

Il y a sûrement moyen de faire plus propre: je laisse les pros du perl parler !

Sur un petit cas de test ($test="A12F4" soit 660212 en décimal) :

Code :

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

1
2
$ perl test3.pl
test2 (hex): 1425e8

et 1425e8 en hexa vaut bien 1320424 en décimal qui vaut bien 660212 * 2 =)

**mashu** · 21/09/2009, 11h41

En effet, pour une taille de 8 caracteres la fonction hex() marche très bien.

Pour mon cas, je viens d'essayer ta fonction et elle ne retrourne que des "0"

Sinon c'est une très bonne idée de passer par une converrsion binaire. je vais bosser dessus pour voir.

Merci.

**lennelei** · 21/09/2009, 11h57

Etrange, ça marche chez moi :

Code :

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

1
2
$ perl test3.pl
test2 (hex): 1425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e8

hex() ne convertit qu'un seul caractère à la fois... donc ça devrait passer, c'est étrange que ça ne marche pas chez toi : tu as bien copié mon code ?

L'exemple de 8 caractères, c'était juste pour pouvoir vérifier le résultat

j'ai fait le test avec 60 comme tu peux le voir au dessus =)

Tu peux lancer ce programme stp (j'ai ajouté des prints pour voir):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $test="A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4";
my $test2="";
print "test (hex): $test \n";
 
#conversion binaire
$test=~s/(.)/sprintf("%.4b",hex($1))/eg;
print "test (bin): $test \n";
 
#multiplication par 2
$test2="000".$test."0";
print "test2 (bin): $test2 \n";
 
#conversion retour en hexa
$test2=~s/(....)/sprintf("%x",oct("0b".$1))/eg;
print "test2 (hex): $test2 \n";

chez moi, j'ai ça:

Code :

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

1
2
3
4
5
6
7
8
9
$ perl test3.pl
test (hex): A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4
test (bin): 1010000100101111010010100001001011110100101000010010111101001010000100101111010010100001
0010111101001010000100101111010010100001001011110100101000010010111101001010000100101111010010100001
0010111101001010000100101111010010100001001011110100
test2 (bin): 000101000010010111101001010000100101111010010100001001011110100101000010010111101001010
0001001011110100101000010010111101001010000100101111010010100001001011110100101000010010111101001010
000100101111010010100001001011110100101000010010111101000
test2 (hex): 1425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e8

**iblis** · 21/09/2009, 12h13

C'est dû bien sûr à la limite sur la représentation des entiers.

Tu peux utiliser Math::BigInt (je te mets le lien pour que tu vois la doc).

Voilà ce que ça donne (dans le debugger) :

Code :

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

1
2
3
4
5
6
7
8
$ perl -d -e0
 
main::(-e:1):    0
  DB<1> use Math::BigInt
  DB<2> $hx = Math::BigInt->new('0xA12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4')
  DB<3> print $hx->bmul(2)->as_hex
0x1425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e8
  DB<4>

Ou alors le faire à la main.

**lennelei** · 21/09/2009, 13h35

Tiens, je savais pas que BigInt proposait aussi de la conversion

Question con (j'ai pas regardé en détail) : il y a des restrictions dans cette bibliothèques ?

**mashu** · 21/09/2009, 13h53

Alek-C :
pour ton info, voila ce que j'obtiens :

Code :

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

1
2
3
4
test (hex): A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4 
test (bin): %.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b 
test2 (bin): 000%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b%.4b0 
test2 (hex): 0000000000000000000000000000000000000000000000000000000000000

Et malheureusement, je ne peux pas installer de modules extérieurs, ce script est censé s'exécuter sur n'importe quel poste en local...

**iblis** · 21/09/2009, 14h02

Envoyé par mashu

Et malheureusement, je ne peux pas installer de modules extérieurs, ce script est censé s'exécuter sur n'importe quel poste en local...

Math::BigInt est dans le core. Quelle version de Perl utilises-tu ?

**mashu** · 21/09/2009, 14h32

J'utilise la version 5.005_03 built for sun4-solaris.

Enfin j'ai dit ca car qd je compile ca :

Code :

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

1
2
3
4
5
6
7
8
 
use strict;
use Time::Local;
use Math::BigInt;
 
my $hx = Math::BigInt->new('0xA12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4');
$hx->bmul(2);
print "$hx";

j'obtiens :

Code :

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

NaN

et si je mets en plus

Code :

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

$hx->as_hex();

j'ai
Can't locate object method "as_hex" via package "Math::BigInt"

Voila.

**iblis** · 21/09/2009, 15h12

Ok, donc tu as Math::BigInt (présent dès Perl 5).

Code :

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

1
2
3
4
use Math::BigInt;
my $hx = Math::BigInt->new('0xA12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4A12F4');
$hx = $hx->bmul(2);
print $hx->as_hex;

Code :

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

0x1425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e9425e8

**mashu** · 21/09/2009, 15h45

Bon désolé mais ca marche pas.

En fait, dans mon Math::BigInt->new() je suis obligé de mettre une donnée décimale ("11" ca me retourne "+22")

Si je mets un hexa ("0xA" ou "A" ca me retourne NaN, qui signifie Not-A-Number)

Et quoiqu'il arrive, as_hex me retourne "Can't call method "as_hex" without a package or object reference"

**iblis** · 21/09/2009, 16h07

Ça doit une être une ancienne version de Math::BigInt (chez moi >= 1.77, selon la version de Perl).

(Tu peux voir la version du module comme ça :

Code shell :

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

perl -MMath::BigInt -e 'print "$Math::BigInt::VERSION\n"'

)

Bon, sinon faut le faire à la main. Au fait, c'est pour quoi en fin de compte (il y a peut être une autre voie) ?

**lennelei** · 21/09/2009, 16h13

Alors, pour BigInt, je ne sais pas ce qui foire... pour mon script, tu as un problème avec sprintf pour la conversion hexa => bin...

Je ne connais pas assez Perl 5.00 pour savoir ce qu'il faudrait faire, mais tu peux contourner le problème comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $hex2bin={	'0' => '0000',
				'1' => '0001',
				'2' => '0010',
				'3' => '0011',
				'4' => '0100',
				'5' => '0101',
				'6' => '0110',
				'7' => '0111',
				'8' => '1000',
				'9' => '1001',
				'A' => '1010',
				'B' => '1011',
				'C' => '1100',
				'D' => '1101',
				'E' => '1110',
				'F' => '1111'};
my $bin2hex={	'0000' => '0',
				'0001' => '1',
				'0010' => '2',
				'0011' => '3',
				'0100' => '4',
				'0101' => '5',
				'0110' => '6',
				'0111' => '7',
				'1000' => '8',
				'1001' => '9',
				'1010' => 'A',
				'1011' => 'B',
				'1100' => 'C',
				'1101' => 'D',
				'1110' => 'E',
				'1111' => 'F'};
my $test="123456789ABCDEF00000000000000002F4A12F4A12F4A12F4A12F4A12F4A";
my $test2="";
print "test (hex): $test \n";
 
#conversion binaire
$test=~s/(.)/$hex2bin->{$1}/g;
print "test (bin): $test \n";
 
#multiplication par 2
$test2="000".$test."0";
print "test2 (bin): $test2 \n";
 
#conversion retour en hexa
$test2=~s/(....)/$bin2hex->{$1}/g;
print "test2 (hex): $test2 \n";

Code :

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

1
2
3
4
5
$ perl test3.pl
test (hex): 123456789ABCDEF00000000000000002F4A12F4A12F4A12F4A12F4A12F4A
test (bin): 000100100011010001010110011110001001101010111100110111101111000000000000000000000000000000000000000000000000000000000000000000101111010010100001001011110100101000010010111101001010000100101111010010100001001011110100101000010010111101001010
test2 (bin): 0000001001000110100010101100111100010011010101111001101111011110000000000000000000000000000000000000000000000000000000000000000001011110100101000010010111101001010000100101111010010100001001011110100101000010010111101001010000100101111010010100
test2 (hex): 02468ACF13579BDE00000000000000005E9425E9425E9425E9425E9425E94

**iblis** · 21/09/2009, 16h29

Envoyé par Alek-C

Question con (j'ai pas regardé en détail) : il y a des restrictions dans cette bibliothèques ?

L'auteur du module a des benchmarks (datés, mais ça permet de se faire une idée). Si tu as besoin de performances Math::BigInt::GMP peut prendre le relai, si installé.

@mashu : la méthode de Alex-C (ajout zéro au binaire) fait exactement ce que tu veux.

**mashu** · 21/09/2009, 16h32

Bon on laisse tomber BigInt et sprintf, en effet, je pense aussi que ma version actuelle ne le gère pas.

Je tiens a vous remercier tous les 2 pour m'avoir filer un coup de main cet aprem.
Je tiens a féliciter Alek-C qui vient de trouver la réponse à mon pb (multiplier une longue chaine hexa par 2 et l'afficher)
C'est exactement ce que je voulais.

Je mets le post en résolu.

Merci.

**lennelei** · 21/09/2009, 16h39

Envoyé par iblis

L'auteur du module a des benchmarks (datés, mais ça permet de se faire une idée). Si tu as besoin de performances Math::BigInt::GMP peut prendre le relai, si installé.

@mashu : la méthode de Alex-C (ajout zéro au binaire) fait exactement ce que tu veux.

Je pensais plus à des restrictions au niveau des limites des nombres utilisés : est-ce qu'il y a des max, ou est-ce que la bibliothèque est censée permettre de gérer tous les nombres (sans prendre en compte le problème de performance) ? Mais je vais jeter un oeil plus en détail par curiosité

Multiplier une longue chaine hexa

Langage Perl

Discussions similaires

Partager

Partager