Well, it works, but I'm not really a fan of the use of the <=> operator, though it's certainly clever.</opinion>
Also, you're brute forcing things by doing the repetitive work yourself instead of having the computer do it. For example, you could do it like:
#!/usr/bin/perl #dectobin3.pl use warnings; use strict; print "Enter a decimal number, less than 256, to be converted to a bin +ary number: "; chomp(my $dec = <STDIN>); my @bits = map { ($dec & 1<<$_) <=> 0 } reverse 0 .. 7; print "Bits=",join("", @bits), "\n";
That way, you can use it for larger numbers without the tedious copy, paste, edit cycle. Generally, whenever you start typing something like $bit_1, $bit_2, etc., it's time to consider using an array.
...roboticus
When your only tool is a hammer, all problems look like your thumb.
In reply to Re: Script critique requested
by roboticus
in thread Script critique requested
by jhumphreys
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |