Discussion :

[kikou05]

Bonjour,

j'aimerais isoler des bits et les "changer de place" dans une autre variable.
par exemple : si j'ai 2 variables sur 32 bits $varA et $varB
comment je peux faire pour faire pour copier le 5eme bit de $varA sur le premier bit de $varB?
A vrai dire je commence tout juste sur perl donc je ne sais pas si ma question est vraiment pertinante et facile à comprendre.

merci d'avance

[MarneusCalgarXP]

Facile à comprendre, oui, mais disons que perl n'est pas trop le langage idéal pour les manipulations de bits du fait de son faible typage

Sinon, les manipulations se font comme en C

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
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $varA = 16; # en binaire : 00010000
my $varB = 2;  # en binaire : 00000010
 
# décallage de 4 bits vers la droite, et utilisation du masque 00000001
my $bit = ($varA >> 4) & 1; 
 
# activation du 1° bit de $varB si le 5° bit de $varA était actif
$varB |= $bit; 
 
print("5° bit de varA ($varA) : [$bit] - nouvelle valeur de varB : [$varB]");

[kikou05]

Merci beaucoup pour cette réponse claire et rapide