Re^2: Script critique requested

roboticus, thanks for the reply--very useful! Am slowly working my way through intro Perl text by Cozens, so haven't learned map or join yet. But I like the array and the use of reverse you recommend.

Best,

Comment on Re^2: Script critique requested

Replies are listed 'Best First'.
Re^3: Script critique requested by roboticus (Chancellor) on Oct 05, 2012 at 00:36 UTC
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; }` [download] 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;` [download] and thought to myself that really a loop was needed. ...roboticus When your only tool is a hammer, all problems look like your thumb.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Script critique requested
by roboticus (Chancellor) on Oct 05, 2012 at 00:36 UTC

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;
}
[download]

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;
[download]

and thought to myself that really a loop was needed.

...roboticus

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

[reply]
[d/l]
[select]