2011-07-15 1 views

答えて

4

Devel::Sizeには、メモリ使用量を測定するツールがあります。

use Devel::Size qw(total_size); 
my $memory_usage = total_size(\@a); 

あなたは本当にあなたが `pack`機能を使用することができます

use List::Util qw(sum); 
my $total = sum 0, map length, @a; 

または

my $total = 0; 
$total += length for @a;