[gull] Transtypage en Perl

[Frederic Schutz]

Faehndrich Philippe wrote:

>> sub bin2dec {
>>      return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
>> }
> 
> Merci. Superbe et élégant, juste comme on aime.

Je n'ai pas encore réussi à décider si ta réponse était ironique ou non :-)

Frédéric