Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

RE: Building a byte to test truth table

by dchetlin (Friar)
on Nov 02, 2000 at 02:23 UTC ( #39521=note: print w/replies, xml ) Need Help??


in reply to Building a byte to test truth table

Why not do real bitwise math?

$byte = 0; $byte |= 1 if $obj->{organization} =~ /\S/; $byte |= 1<<1 if $obj->{foo} =~ /\S/; $byte |= 1<<2 if $obj->{bar} =~ /\S/; ... $byte |= 1<<7 if $obj->{report} =~ /\S/; # Here are your checks, rewritten as bitmasks if ($byte & 1<<7 and not $byte & 7<<1) { # do more checks against database } elsif (not $byte & 15<<4 and $byte & 1<<3 and not $byte & 3) { # do other checks against database } else { # produce error message }

Update: while I was checking my solutions, several people already gave the right answers. Specifically, tye's looks nice to me. I'm leaving this here only for completeness' sake.

-dlc

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://39521]
help
Chatterbox?
[Corion]: Yeah (although their mother was somewhat stressed out regardless) - but it made for an otherwise relaxed evening ;)
[ambrus]: Corion: nice.

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2016-12-08 10:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (139 votes). Check out past polls.