in reply to Re^2: Script critique requested
in thread Script critique requested
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.
In Section
Seekers of Perl Wisdom