在Perl中 - 如何知道数组的大小（以字节为单位）？

Question

我已将解码的json存储在数组中。我需要知道数组的大小，以字节为单位，以便我可以解析它。请建议我一种方法来了解perl中数组的大小。

注意：它不是数组中的元素数。我想要以字节为单位的大小或mb

Answer 1

从此example

use strict;
use warnings;
use Devel::Size qw(total_size);

my @arr = (1, 2, 3, "Foo", "Bar", "Baz", [4, 5, 6], {xyz => 2048});

print "Size: ", total_size(\@arr), " bytes.\n";

因此，您需要Devel::Size

如果您不确定如何从CPAN安装模块，请转到this link