如何在perl中以字节为单位获取数组的大小？

Question

我需要在perl中获取数组大小，但大小必须以字节为单位。我找不到任何功能。 提前致谢

Answer 1

您可以使用Devel :: Size模块执行此操作 - ＆gt; https://metacpan.org/pod/Devel::Size

#!/usr/bin/perl

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";

在我的系统上打印：

bria@hel:~$ ./size.pl
Size: 765 bytes.
bria@hel:~$