Re: decimal to binary

[Gloom]

Maybe you don't understand why I don't use pack/unpack... Only for illustrate the well known TIMTOWTDI :)

sub to_bin {
    
    my $num  = shift;
    my $size = 0;
    my @result;

    while( $num >> $size ) { $size ++;}

    for (0..$size-1) {
        unshift @result , ( ($num &  ( 2 ** $_ ) ) ? "1" : "0" );
    }

    return join '' , @result ;
}