Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: What are pack/unpack used for?

by Tux (Monsignor)
on Jun 11, 2012 at 10:50 UTC ( #975537=note: print w/ replies, xml ) Need Help??


in reply to What are pack/unpack used for?

unrelated to the Unix pack command, it can have the same effect, which matters if resources lack:

use Devel::Size qw(total_size); my @aoa = map { [ int rand 1_000_000, int rand 20_000, chr 32 + int ra +nd 40 ] } 0 .. 450_000; my @aop = map { pack "l>s>A", @$_ } @aoa; say "Unpacked: ", total_size (\@aoa); say "Packed: ", total_size (\@aop); => $ perl test.pl Unpacked: 100800288 Packed: 28800128

Enjoy, Have FUN! H.Merijn


Comment on Re: What are pack/unpack used for?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://975537]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2015-07-03 00:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (47 votes), past polls