perl - 使用 map 从对象函数创建数组

Question

我有一个数组 HTML::Element s 来自 HTML::TreeBuilder 和 HTML::Element->find我需要分配他们的 as_text其他一些变量的值。我知道我真的很容易做到

my ($var1, $var2) = ($arr[0]->as_text, $arr[1]->as_text);

但我希望我可以使用 map而只是为了使代码更具可读性，因为数组中至少有 8 个元素。我真的是 Perl 的新手，所以我不太确定该怎么做。

任何人都可以指出我正确的方向吗？

Answer 1

如果您精通 perldoc -f map 很清楚:

my @as_texts = map { $_->as_text } @arr;

如果您想分配给标量列表，也可以使用:

my($var1, $var2, $var3, ...) = map { $_->as_text } @arr;

但当然，对于未知数量的元素，数组版本更好。