jmusbach has asked for the wisdom of the Perl Monks concerning the following question:
The result is wrong:#split apart flags my $qr=$flags & 0x8000; my $opcode=($flags & 0x001e) >> 11; my $aa=$flags & 0x0400); my $tc=$flags & 0x0200; my $rd=$flags & 0x0100; my $ra=$flags & 0x0080; my $rcode=$flags & 0x000f;
(note RD and RA)... Yet if I change the bitmasks like so:ID: 2 QR: 1 OPCODE: 0 AA: 0 TC: 0 RD: 256 RA: 128 RCODE 0 QDCOUNT: 1 ANCOUNT: 6 NSCOUNT: 0 ARCOUNT: 0
to include "! !" the results are valid:#split apart flags my $qr=! ! ($flags & 0x8000); my $opcode=($flags & 0x001e) >> 11; my $aa=! ! ($flags & 0x0400); my $tc=! ! ($flags & 0x0200); my $rd=! ! ($flags & 0x0100); my $ra=! ! ($flags & 0x0080); my $rcode=$flags & 0x000f;
Why? What does "! !" do?ID: 2 QR: 1 OPCODE: 0 AA: TC: RD: 1 RA: 1 RCODE 0 QDCOUNT: 1 ANCOUNT: 6 NSCOUNT: 0 ARCOUNT: 0
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: What does "! !" do?
by tobyink (Canon) on Feb 06, 2012 at 14:23 UTC | |
|
Re: What does "! !" do?
by SuicideJunkie (Vicar) on Feb 06, 2012 at 14:18 UTC | |
|
Re: What does "! !" do?
by Anonymous Monk on Feb 06, 2012 at 14:16 UTC |