Re: built in function for binary division

[ww]

Google is your friend. The substantive portion is lifted nearly verbatim from onperl.net's binary arithmetic tut. NB You'll have work to do to extend this beyond 0b111.

C:\>perl -E "my $result = 0b01011/0b11; say $result;"
3.66666666666667 # output in decimal.

for binary output:

#! /usr/bin/perl
use 5.014;

my @CONVERSIONS = qw(000 001 010 011 100 101 110 111);

sub conv2bin{
     my $octal = sprintf ("%o", $_[0]);
     my @threeBitSeqs = map {$CONVERSIONS [$_]} (split //, $octal);
     return (join "", @threeBitSeqs);
}

my $result = 0b01011/0b11; 
say "decimal: $result";
my $bin= conv2bin($result);
say "binary: $bin";

=head

D:\>perl bin_div.pl
decimal: 3.66666666666667
binary: 011      # 3 decimal (or 3.66667 truncated) expressed as binar
+y.

#  Now, try this dividing -- oh, say, 6dec by 2dec...
=cut