了解了。那我想用map或者grep会更好吧。 2009/1/19 zhang jy <[email protected]>: > 谢谢了！我要做的是，数组中的一个位置之前的全部数据都清出去。我需要对数组中的数据进行判断，就是在push之前还有个if，哈哈！ > thanks alot > 2009/1/19 Shu Cho <[email protected]> >> >> 可以这样， >> 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 访问该论坛 -~----------~----~----~----~------~----~------~--~---
