Discussion :

[lauvydream]

Bonjour,

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

Code :

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

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... ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏÎÏÏÎÎÎÏ

Merci pour vos suggestions!

[dmganges]

Bonjour,

Des infos sur les conversions ICI

Code :

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

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 :

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

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

En attendant mieux

[lauvydream]

Bonjour,

Des infos sur les conversions ICI

Code :

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

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 :

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

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