Complément à un d'un nombre binaire

Version imprimable

23/08/2016, 13h20
lauvydream

Complément à un d'un nombre binaire
Bonjour,

j'essaie d'exprimer le complément à un d'un nombre binaire sans succès!
Code:

1 2 3 4 5 my $bin1 = 00000000000000000000000000000001; #complément à un my $bin2 = ~$bin1;
Le premier problème serait de réduire $bin1 à 1 octet.
Le 2e problème est justement celui du complément à un qui me renvoie... ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÎÏÏÎÎÎÏ :roll:

Merci pour vos suggestions!

Bonjour,

Des infos sur les conversions ICI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use utf8;

my $bin1 = 0b0000000000000000000000000000001;
print $bin1;
print "\n";

my $bin2 = ~ $bin1;

my $bin3 = sprintf("%b", $bin2);

print $bin3;

Code:

1
2
3
4
5
E:\_DEV\DevPerl>perl CompBin.pl
1
 
1111111111111111111111111111111111111111111111111111111111111110
E:\_DEV\DevPerl>

En attendant mieux ;)

Citation:
Envoyé par dmganges
Bonjour,

Des infos sur les conversions ICI
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #!/usr/bin/perl use strict; use warnings; use utf8; my $bin1 = 0b0000000000000000000000000000001; print $bin1; print "\n"; my $bin2 = ~ $bin1; my $bin3 = sprintf("%b", $bin2); print $bin3;
Code:

1 2 3 4 5 E:\_DEV\DevPerl>perl CompBin.pl 1 1111111111111111111111111111111111111111111111111111111111111110 E:\_DEV\DevPerl>
En attendant mieux ;)
Merci de la réponse prompte!
Finalement j'ai fait le complément à un en effectuant tout simplement la différence FF-$bin1