Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
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
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; }

    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 studying the Monastery: (10)
As of 2015-07-30 00:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (269 votes), past polls