可以这样，
while ( my $array_elem = shift @array ) {
push @array_2, $array_elem;
}
很好奇你为什么要这么做。
另外，在for (@array)里面修改...@array ，就不要去深究为什么了。错误的用法导致奇怪的结果。
2009/1/19 zhang jy <[email protected]>:
> hi~
> 大家好！最近在工作中遇到了一个问题。
> #!perl -w
> use strict;
> my @array=('a','b','c','d','e','f');
> my @array_2;
> for(@array)
> {
> push @array_2,shift @array;
> }
> for(@array)
> {
> print $_;
> }
>
> 我希望看到的...@array内被清空，@array_2被填满。可是情况确...@array中存在d,e,f。
> 请教一下大家，如何才能达到我想要的目的?
> 还有，为什么存在的是def，而不是b.d.f
> 谢谢！
> >
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina 论坛”论坛。
要在此论坛发帖，请发电子邮件到 [email protected]
要退订此论坛，请发邮件至 [email protected]
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
