Binary Arithmetics

See also

[ home ] - [ search ] - [ sitemap ]

#!/usr/bin/perl -w
use strict;

my $arg1 = 1111;
my $arg2 = 0001;

my $sum = &bin2dec($arg1) + &bin2dec($arg2);

printf("%08d\n", $arg1);
printf("%08d\n", $arg2);
printf("%08d\n", &dec2bin($sum));

sub bin2dec
{
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

sub dec2bin($) { return sprintf("%b", $_[0]) }

Output:

# 00001111
# 00000001
# 00010000