Beware - Perl is not SQL, and == has higher precedence than &, so if you have this
if ($flags & 3 == 3)
you are not performing a useful test. Parenthesise
if ( ($flags & 3) == 3)
Anti-nuisance lawsuit warning: The purpose of these notes is to remind me, Zoegond, of stuff or to help me work stuff out. They may contain mistakes.
Quick
- ($a, $b....) = unpack("A2A7...", $packed)
- push( array, list )
