最初,我正在使用长度= 2 ^ 16的列表.但是,为了抽象这个,我将在这个例子中设置length = 5.
#subroutine to make undefined entries -> 0
sub zeros {
foreach(@_) {
if(!defined($_)) {
$_ = 0;
}
}
}
#print out and indicies and elements of list
sub checking {
print "List = \n";
my $counter = 0;
foreach (@_) {
print "index = $counter\n";
print "$_\n";
$counter += 1;
}
print "\n";
}
方法1：如果我访问不同的索引来编辑元素,我打印出数组时会得到以下内容.我不想看到空白.我希望它们为0.我已经设置了一个子程序“零”,使未定义的条目变为零.但我不知道我的代码出了什么问题.我还为列表的每个元素尝试了“$_ = 0”.我仍然无法为空条目获取零.
#method 1 @abc = (); $abc[1] = 3; $abc[5] = 5; &zeros(@abc); &checking(@abc); List = index = 0 index = 1 3 index = 2 index = 3 index = 4 index = 5 5
方法2：如果我像这样初始化列表,我可以得到零.但正如我所说,我正在使用很长的列表,我不能绝对不会像这样初始化我的列表.
#method 2 @abc = (3,5); &checking(@abc); List = index = 0 3 index = 1 0 index = 2 0 index = 3 0 index = 4 5
解决方法
您的方法是正确的,但是您的zeros()函数存在问题.您使用@abc作为参数调用它,该参数生成该列表的副本.然后,您更改副本.在sub的末尾,该副本被丢弃.在check()函数中,您仍在使用原始列表.
你可以像这样解决它：
sub zeros {
my @list = @_;
@list = map { $_ // 0 } @list;
return @list;
}
@abc = zeros(@abc);
checking(@abc);
诀窍是返回修改后的列表并将其重新分配给原始变量.
如果您使用了严格和警告,它会告诉您：
Use of uninitialized value $_ in concatenation (.) or string at F:\scratch.pl line 28. List = index = 0 index = 1 3 index = 2 index = 3 index = 4 index = 5 5 Use of uninitialized value $_ in concatenation (.) or string at F:\scratch.pl line 28. Use of uninitialized value $_ in concatenation (.) or string at F:\scratch.pl line 28. Use of uninitialized value $_ in concatenation (.) or string at F:\scratch.pl line 28.
但是,由于你正在处理一个非常大的数组,我建议使用数组引用,因为复制将是昂贵的.
sub zeros {
$_ //= 0 for @{ $_[0] };
}
zeros(\@abc);
checking(@abc);