Hi -
I really thought I understood pack/unpack,
but this has me stumped. I can't find anything to
explain the operation of the following script
in the documentation:
use strict;
use warnings;
my $buffer = pack( "NN", 22, 0 );
printf "buffer length = %s\n", length $buffer;
print "buffer ",
join( " ", map { sprintf "%02x", ord( $_ ) } split "", $buffer ),
"\n";
my( $len1, $len2 ) = unpack "NN", $buffer;
printf "len1 = %s len2 = %s\n",
$len1 || 'undef', $len2 || 'undef';
which gives this result:
$ perl tpack.pl
buffer length = 8
buffer 00 00 00 16 00 00 00 00
len1 = 22 len2 = undef
Why is len2 undefined instead of 0? Any ideas?
I am using perl 5.8.7 on Gentoo.
--
Aloha => Beau;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
