Perl如何获取数组引用的最后一个元素的索引?
发布时间:2020-12-15 21:23:03 所属栏目:大数据 来源:网络整理
导读:如果我们有数组,那么我们可以做以下: my @arr = qw(Field3 Field1 Field2 Field5 Field4);my $last_arr_index=$#arr; 我们如何做这个数组引用? my $arr_ref = [qw(Field3 Field1 Field2 Field5 Field4)];my $last_aref_index; # how do we do something s
如果我们有数组,那么我们可以做以下:
my @arr = qw(Field3 Field1 Field2 Field5 Field4); my $last_arr_index=$#arr; 我们如何做这个数组引用? my $arr_ref = [qw(Field3 Field1 Field2 Field5 Field4)]; my $last_aref_index; # how do we do something similar to $#arr; 解决方法my $arr_ref = [qw(Field3 Field1 Field2 Field5 Field4)]; my ($last_arr_index,$next_arr_index); 如果你需要知道最后一个元素的实际索引,例如你需要循环遍历数组的元素知道索引,使用$#$: $last_arr_index = $#{ $arr_ref }; $last_arr_index = $#$arr_ref; # No need for {} for single identifier 如果你需要知道最后一个元素之后的索引,(例如,没有push()填充下一个自由元素) 或者你需要知道数组中元素的数量(这是相同的数字)如上: my $next_arr_index = scalar(@$arr_ref); $last_arr_index = $next_arr_index - 1; # in case you ALSO need $last_arr_index # You can also bypass $next_arr_index and use scalar,# but that's less efficient than $#$ due to needing to do "-1" $last_arr_index = @{ $arr_ref } - 1; # or just "@$arr_ref - 1" # scalar() is not needed because "-" operator imposes scalar context # but I personally find using "scalar" a bit more readable # Like before,{} around expression is not needed for single identifier 如果你真正需要的是访问arrayref中的最后一个元素(例如,您希望知道索引是后来使用该索引访问元素的唯一原因),你可以简单地使用“-1”索引到数组的最后一个元素。赞助Zaid的帖子的想法。 $arr_ref->[-1] = 11; print "Last Value : $arr_ref->[-1] n"; # BTW,this works for any negative offset,not just "-1". (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |