Discussion :

[spoun95]

Bonjour

j'ai un nombre que je convertie en binaire

Code :

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

$binaire=sprintf("%08b",$decimal);

je fais plusiers calculs et j'obtiens un nouveau nombre binaire.

je voudrais convertir ce nouveau nombre en decimal mais je n'y arrive pas.

J'espere que l'un d'entre vous a une solution.

Merci

[spoun95]

finalement j'ai réussi donc je le poste au cas ou cela interesserait des gens

Code :

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

1
2
3
4
5
6
7
 
@ch_bin=split("",$binaire);     #transforme la chaine binaire en tableau
$decimal = 0;
for ($i=0;$i<length($binaire);$i++)
{
    $decimal = 2*$decimal + $ch_bin[$i];
}

[tfe]

pack/unpack sont tes amis

[spoun95]

pack/unpack sont tes amis

je n'ai jamais réussi à les utiliser
ca me renvoyai des caractères etranges

[Jedai]

Il me semble pourtant que cette section de perlpacktut est explicite :

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
 
Bit Strings
 
Bits are the atoms in the memory world. Access to individual bits may have to be used either as a last resort or because it is the most convenient way to handle your data. Bit string (un)packing converts between strings containing a series of 0 and 1 characters and a sequence of bytes each containing a group of 8 bits. This is almost as simple as it sounds, except that there are two ways the contents of a byte may be written as a bit string. Let's have a look at an annotated byte:
 
     7 6 5 4 3 2 1 0
   +-----------------+
   | 1 0 0 0 1 1 0 0 |
   +-----------------+
    MSB           LSB
 
It's egg-eating all over again: Some think that as a bit string this should be written ``10001100'' i.e. beginning with the most significant bit, others insist on ``00110001''. Well, Perl isn't biased, so that's why we have two bit string codes:
 
   $byte = pack( 'B8', '10001100' ); # start with MSB
   $byte = pack( 'b8', '00110001' ); # start with LSB
 
It is not possible to pack or unpack bit fields - just integral bytes. pack always starts at the next byte boundary and ``rounds up'' to the next multiple of 8 by adding zero bits as required. (If you do want bit fields, there is vec in the perlfunc manpage. Or you could implement bit field handling at the character string level, using split, substr, and concatenation on unpacked bit strings.)
 
To illustrate unpacking for bit strings, we'll decompose a simple status register (a ``-'' stands for a ``reserved'' bit):
 
   +-----------------+-----------------+
   | S Z - A - P - C | - - - - O D I T |
   +-----------------+-----------------+
    MSB           LSB MSB           LSB
 
Converting these two bytes to a string can be done with the unpack template 'b16'. To obtain the individual bit values from the bit string we use split with the ``empty'' separator pattern which dissects into individual characters. Bit values from the ``reserved'' positions are simply assigned to undef, a convenient notation for ``I don't care where this goes''.
 
   ($carry, undef, $parity, undef, $auxcarry, undef, $zero, $sign,
    $trace, $interrupt, $direction, $overflow) =
      split( //, unpack( 'b16', $status ) );
 
We could have used an unpack template 'b12' just as well, since the last 4 bits can be ignored anyway.

As-tu essayé cette méthode ?

--
Jedaï

[spoun95]

désolé je parle pas anglais

[2Eurocents]

Alors essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my $a = "01000010";
my $b = pack ("B8", $a);
my $c = pack ("C", $b);
my $d = pack ("C", $c);
my $e = unpack ("B8", $d);
 
print "chaine binaire $a\n";
print "conversion caractère $b\n";
print "evaluation numérique ".ord($b)."\n";
print "conversion numérique $c\n";
print "reconversion caractère $d\n";
print "reconversion chaine binaire $e\n";

Si la langue du perlpacktut que t'a donné jedai te gène (il me semble que sa traduction en français n'est pas achevée), tu peux regarder la doc de pack et unpack dans perlfunc. Elle est très intéressante, mais il faut quand même pratiquer à côté pour tout appréhender .

[Jedai]

Et je te conseille très fortement d'apprendre l'anglais, qui malheureusement est tout à fait indispensable pour un informaticien.

--
Jedaï