为什么我的Perl grep不能返回第一场比赛？

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

导读：以下代码片段搜索数组中第一次出现值的索引。但是，当删除$ index周围的括号时，它无法正常工作。我究竟做错了什么？ my ($index) = grep { $array[$_] eq $search_for } 0..$#array; 解决方法括号将grep从标量上下文的上下文更改为列表上下文。在标量上下

以下代码片段搜索数组中第一次出现值的索引。但是，当删除$ index周围的括号时，它无法正常工作。我究竟做错了什么？

my ($index) = grep { $array[$_] eq $search_for } 0..$#array;

解决方法

括号将grep从标量上下文的上下文更改为列表上下文。在标量上下文中，grep返回表达式为真的次数。在列表上下文中，它返回表达式为真的元素。

以下突出显示差异上下文：

my   $x   = grep {/foo/} @array;  # the number of things that match /foo/
my  ($x)  = grep {/foo/} @array;  # the first thing that matches /foo/
my  @foo  = grep {/foo/} @array;  # all the things that match /foo/
my (@foo) = grep {/foo/} @array;  # all the things that match /foo/

（编辑：李大同）

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