Re^3: Script critique requested

[roboticus]

jhumphreys:

Sorry, I was a bit too idiomatic there. I probably should've suggested something more like:

my @bits;
for (128 64 32 16 8 4 2 1) {
    push @bits, ($dec & $_)  <=> 0;
}

Basically, I saw the wall of:

my $dec_a = $dec & 128;
my $dec_b = $dec &  64;
my $dec_c = $dec &  32;
my $dec_d = $dec &  16;
my $dec_e = $dec &   8;
my $dec_f = $dec &   4;
my $dec_g = $dec &   2;
my $dec_h = $dec &   1;

and thought to myself that really a loop was needed.

...roboticus

When your only tool is a hammer, all problems look like your thumb.