Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Script critique requested

by jhumphreys (Novice)
on Oct 04, 2012 at 17:52 UTC ( #997278=note: print w/ replies, xml ) Need Help??


in reply to Re: Script critique requested
in thread 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,

J.


Comment on Re^2: Script critique requested
Re^3: Script critique requested
by roboticus (Canon) 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; }

    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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://997278]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (14)
As of 2014-09-01 09:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (300 votes), past polls