I did show how to use the UnPack, but the following should demonstrate:
# Use: ## n - number of 64bit pack +ed numbers in string # my @Numbers = UnPack( n, $stringpack ); ## string input, array outp +ut my $pack = pack("N N", 0, 99 ); my $Numbers = UnPack( 1, $pack ); say $Numbers; ( $Numbers ) = UnPack( 1, $pack ); say $Numbers; my @Numbers = UnPack( 1, $pack ); say $Numbers[0]; ( @Numbers ) = UnPack( 1, $pack ); say $Numbers[0]; __END__ result: 1 99 99 99
On running this code, I could not reproduce my original statement, so I can only assume that I typed "$Numbers" instead of "@Numbers" when I wrote the test cases for 'sub UnPack'. But if I had put parenthesis around the scalar, I still would have gotten what I wanted ( list context ).
Thank you
"Well done is better than well said." - Benjamin Franklin
In reply to Re^2: Force 'sub' return to be treated in list context?
by flexvault
in thread Force 'sub' return to be treated in list context?
by flexvault
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |