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

Question

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

Answer 1

您可以使用 Devel::Size 模块 -> 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:~$