gistfile1.pl

for q/Q options unsupported pack

sub unpack_Q {
    my ( $v1, $v2 ) = unpack( 'N2', shift );
    return $v1 * (2 ** 32) + $v2;
};

sub unpack_q {
    my $v = shift;
    my ( $v1, $v2 ) = unpack( 'N2', $v );
    return $v1 * (2 ** 32) + $v2 if $v1 < 0xf0000000;
    $v = ~$v;
    ( $v1, $v2 ) = unpack( 'N2', $v );
    return ($v1 * (2 ** 32) + $v2 + 1 ) * -1;
};