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

pandafeeder · 发表于 2012-8-28 11:48:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由 pandafeeder 于 2012-8-28 11:58 编辑

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

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

谢谢解答。

晒太阳 · 发表于 2012-8-28 14:55:03

@newnames = @names；
pop @newsnames；

zeushuang · 发表于 2012-8-28 15:46:39

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

pandafeeder · 发表于 2012-8-28 16:59:15

回复 3# zeushuang

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

晒太阳 · 发表于 2012-8-29 08:36:50

这叫灯下黑！

eeares · 发表于 2012-8-29 09:26:16

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

sherwoodchan · 发表于 2012-9-4 10:20:51

楼主是来撒钱的吗？

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /1