Binary to Decimal (zdog's way)

[zdog]

I was playing around with the shift operator and I kept getting tired of converting binary to decimal. So I came up with this little program that I guess could be implemented different ways, but this is the way I like to use it.

After I wrote the program, I came to PerlMonks and saw that there was already a way to do this, obviously better, but I kind of feel proud of this script since I made it all on my own. So ...

#!/usr/bin/perl

# Implementation: perl *.pl BINARY_NUM

my @inputr = reverse split(//, shift);    
my $output = 0;
for (0 .. @inputr-1) { $output += ($inputr[$_] * (2**$_)); }
print "$output\n";

[merlyn]

Since you reference it, let me add that most of us use the far more compact and easy to retype and demonstratably faster code like:

$_ = shift;
print unpack "N", pack "B*", ("0" x (32 - length)) . $_;

-- Randal L. Schwartz, Perl hacker

[I0]

in v5.6.0 oct"0b$_"