Question

perl 配对函数

perl里有没有类似于C++STL中makepair这种的函数啊？。。。我想把a和b配成对，装到数组里，不想用hash，因为它里头没顺序，不好控制。。。囧。。。拜谢了~~。。。没有悬赏分了，抱歉。。。

Answer 1

perl里没有这种函数

但是创建对匿名数组的引用可以实现，如：

@a=qw/a b c d e f g h/;

for(@a){
push @{$pair[$i]},$_;
$i++ if $j++%2;

}

print @{$pair[0]},"\n"; #ab
print "@{$pair[0]}","\n"; #a b
print ${$pair[0]}[0],"\n"; #a
print ${$pair[0]}[1],"\n"; #b

print @{$pair[2]},"\n"; #ef
print ${$pair[2]}[0],"\n"; #e
print ${$pair[2]}[1],"\n"; #f

Answer 2

你可以把配对的数据放在一个ref里面，再把ref放到数组里面。
如:
push @array, {
ITEM1 => a,
ITEM2 => b,
};

这样既配对也有顺序。
读的时候可以$array[0]->{"ITEM1"} 和 $array[0]->{"ITEM2"}来读取。