testbits.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:58 2010 from testbits.pl 2009/09/01 508.

#!perl -w
#< test or/and bit flags
use strict;
use warnings;
my $F_HADMEM = 8;
my $flag = 1;
my $msg = '';
$msg = ($flag & $F_HADMEM) ? "Got HADMEM" : "No HADMEM";
print "Value of flag = $flag ($msg)\n";
$flag |= $F_HADMEM;  # ADD the BIT to flag
$msg = ($flag & $F_HADMEM) ? "Got HADMEM" : "No HADMEM";
print "Value of flag = $flag ($msg)\n";
$flag &= ~$F_HADMEM; # REMOVE the BIT from the flag
$msg = ($flag & $F_HADMEM) ? "Got HADMEM" : "No HADMEM";
print "Value of flag = $flag ($msg)\n";

index -|- top