阵列比较

Question

我有两个阵列，我正在使用list::compare模块。第一个数组是

@log, "$each_line[3]|$each_line[14]" 

第二个数组是

@log2 "$each_line2[3]|$each_line2[14]|$each_line2[37]" 

有没有什么办法让这些阵列匹配，并打印呢？

"$each_line[3]|$each_line[14]|$each_line2[37]" 

Answer 1

由于您没有说匹配是如何完成的，因此该示例似乎基本上是对应数组元素的“或”。

这样

my @array1 = split(/\|/, $string1); 
my @array2 = split(/\|/, $string2); 
my $length1 = scalar(@array1); 
my $length2 = scalar(@array2); 
my @new =(); 
my $max = $length1 < $length2 ? $length2 : $length1; 
for (my $index = 0; $index < $max; $index++) { 
    push @new, $index < $length1 ? $array1[$index] : $array2[$index]; 
}