tcarmeli has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl -w use Devel::Size qw(size total_size); my $packed1=pack("b24",'111100001111000011110000'); my $packed2=pack("b24",'111100000000000011110000'); my $raw='111100001111000011110000'; my $xor=($packed1^$packed2); my $five=5; printf "packed1 %d, %d\n",length($packed1),size($packed1); printf "packed2 %d, %d\n",length($packed2),size($packed2); printf "raw %d, %d\n",length($raw),size($raw); printf "xor %d, %d\n",length($xor),size($xor); printf "five %d, %d\n",length($five),size($five);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Help needed on Devel::Size
by Corion (Patriarch) on Mar 05, 2007 at 09:44 UTC | |
by tcarmeli (Beadle) on Mar 05, 2007 at 11:45 UTC | |
by Anonymous Monk on Mar 06, 2007 at 09:34 UTC |