意外地缩短了Perl切片
发布时间:2020-12-15 21:43:22 所属栏目:大数据 来源:网络整理
导读:下面的Perl片段应该打印由哈希值引用的数组的前5项,如果数组更短则打印更少. while ( my ($key,$value) = each %groups ) { print "$key: n"; my @list = grep defined,@{$value}; my @slice = grep defined,@list[0..4]; foreach my $item ( @slice ) { pr
下面的Perl片段应该打印由哈希值引用的数组的前5项,如果数组更短则打印更少.
while ( my ($key,$value) = each %groups ) { print "$key: n"; my @list = grep defined,@{$value}; my @slice = grep defined,@list[0..4]; foreach my $item ( @slice ) { print " $item n"; } print " (",scalar @slice," of ",scalar @list,")n"; } 我不认为第一个grep定义是必要的,但它不会造成任何伤害,它应该保证切片之前没有未定义的数组成员.定义的第二个grep是当@list小于5时删除slice结果中的未定义数组成员. %group已经被重复调用填充: $groups{$key} = () unless defined $groups{$key}; push @{$groups{$key}},$value; 大多数时候它工作正常: key1: value1 value2 value3 value4 value5 (5 of 100) 但有时 – 我在什么情况下没有解决 – 我看到: key2: value1 (1 of 5) key3: value1 value2 (2 of 5) 我希望打印列表的长度和x(y的y)的最小值为min(5,y) 什么可能导致这种行为? 解决方法
将grep与数组切片一起使用@list可自动生成元素并扩展数组.
@foo = (1,2,3); @bar = @foo[0..9999]; print scalar @foo; # => 3 @foo = (1,3); @bar = grep 1,@foo[0..9999]; print scalar @foo; # => 10000 这也发生在Perl想要遍历数组切片的其他上下文中. @foo = (1,3); foreach (@foo[0..9999]) { } print scalar @foo; # => 10000 @foo = (1,3); @bar = map { } @foo[0..9999]; print scalar @foo; # => 10000 那么解决方法是什么? >对范围或grep操作数使用更复杂的表达式 @bar = grep 1,@foo[0..(@foo>=9999?9999:$#foo)]; @bar = grep 1,@foo>=9999 ? @foo[0..9999] : @foo; >使用临时数组变量 @bar = grep 1,@tmp=@foo[0..9999] >(由@FMc建议)使用map来设置一个中间数组 @bar = grep 1,map { $list[$_] } 0..9999; >使用数组索引而不是直接使用数组 @bar_indices = grep defined($foo[$_]),0..9999; @bar = @foo[@bar_indices]; @bar = @foo[ grep defined($foo[$_]),0..9999 ]; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |