Update: Salva correctly points out that I was wrong about the introduction of the "Q" pack template. It's the ">" modifier that doesn't go back to 5.8.
Perl 5.10 introduced the pack() modifier ">", which, for my use case with "Q" packs an unsigned quad (64bit) value in big endian.
Now, I'm looking for an efficient equivalent for
pack("Q>2", @ints)
where @ints contains two 64bit unsigned ints. "Q>2" means "pack two unsigned quads in big-endian byte order". Obviously, I want this because I am (at least temporarily) tied to a pre-5.10 Perl.
Update2: Actually, on further reflection, something as simple as the following should do:
pack("N4", $ints[0] >> 32, $ints[0], $ints[1] >> 32, $ints[1])
Appears to work on my 64bit x86-64 Linux. Any reason why this might not be exactly the same as pack("Q>2", @ints)? Any platform-specific matters?
What's the reverse (ie. equivalent to unpack("Q>2", @ints))?
The Q pattern was introduced in perl 5.6. Your real problem may be that you are trying to use it in a perl compiled without 64bit support.
Anyway, you can use Math::Int64.
Update, an example:
use Math::Int64 qw(int64_to_native);
my $packed = join '', map int64_to_native($_), @ints;
Another option, if you are on a 64bit perl supporting Q but not Q>, is to reorder the bytes yourself:
pack 'C*', reverse unpack 'C*', pack 'Q', $int;