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

发布时间：2020-12-15 21:46:17 所属栏目：大数据来源：网络整理

导读：我有一个从 HTML::TreeBuilder 和HTML :: Element- find获得的 HTML::Element 数组,我需要将as_text值分配给其他一些变量.我知道我真的很容易做到 my ($var1,$var2) = ($arr[0]-as_text,$arr[1]-as_text); 但是我希望我可以使用map来代替使代码更具可读性,因

我有一个从 HTML::TreeBuilder和HTML :: Element-> find获得的 HTML::Element数组,我需要将as_text值分配给其他一些变量.我知道我真的很容易做到

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

但是我希望我可以使用map来代替使代码更具可读性,因为数组中至少有8个元素.我是Perl的新手,所以我不太清楚该怎么做.

谁能指出我正确的方向？

解决方法

如果你精通 perldoc -f map,那很清楚：

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

如果要分配标量列表,也可以使用：

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

但是,对于未知数量的元素,阵列版本当然更好.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!