perl 数组操作问题请教（详见帖子）谢谢

pandafeeder

假设现有
@names = qw （A B C D）;
请问
如何在@names的基础上生成一个新的数组使
@newnames = （A B C）;
但是原@names数组的值不变，依旧是 (A B C D);

PS:因为 pop，push，shift，unshift后都会改变原数组的值。

谢谢解答。

晒太阳

@newnames = @names；
pop @newsnames；

zeushuang

我想说，楼主要实现你所说的功能，方法非常非常多。
2楼是一种。
另外，如下也可以实现:
@newnames=($names[0],names[1],names[2]);

pandafeeder

回复 3# zeushuang


    我SB了，我是在一个程序里要用这个...估计当时乱了，愣是没看出来怎么整...

晒太阳

这叫灯下黑！

eeares

大把方法啊，如果你的ABCD只是随意举例，那么楼上几位已经说过了，如果有规则的，grep

sherwoodchan

楼主是来撒钱的吗？