数组添加问题

leigh111

请问：要在一个数组中间的特定位置添加一个元素，这个位置之后的元素依次向后平移，元素个数由$n变为$n+1
请问怎么完成操作？（数组很大）

DQP

1. 
   
2. 
   
3. sub insert{
   
4.     my($array, $pos, $e) = @_;
   
5.     for (my $i = scalar @$array; $i >= $pos; $i--) {
   
6.         $array->[$i] = $array->[$i - 1];
   
7.     }
   
8.     $array->[$pos] = $e;
   
9. }
   
10. 
    
11. my @foo = (1, 2, 3, 4);
    
12. insert(\@foo, 2, 7);
    
13. print "@foo";
    

复制代码

你都把过程描述出来了
翻译成代码还不是一眨眼的事。。。。 :wink:

[ 本帖最后由 DQP 于 2009-8-1 20:51 编辑 ]

MMMIX

原帖由 leigh111 于 2009-8-1 19:38 发表
请问：要在一个数组中间的特定位置添加一个元素，这个位置之后的元素依次向后平移，元素个数由$n变为$n+1

perldoc -f splice

请问怎么完成操作？（数组很大）

如果数组很大的话，最好不要这么做。

wxlfh

叫MMMIX抢先了。

leigh111

谢谢