比较无聊中。发个题目。有兴趣的来看看。

icps · 发表于 2004-2-15 01:23:05

@array=(1..5);
unshift @array;
unshift (6..10);
while($i=shift)
print $i;
}
foreach(shift){
print;
}

复制代码

KornLee · 发表于 2004-2-15 01:45:39

@array=(1..5);
unshift @array;  #
unshift (6..10); #
while($i=shift)  #
   print $i;
   }
foreach(shift){ #
   print;
   }
复制代码

我感觉有4处错误~

icps · 发表于 2004-2-15 01:47:28

哈。说出来看看

KornLee · 发表于 2004-2-15 01:55:03

2处是跟unshift有关的,因为对数组头部进行unshift操作,unshift他的参数应该是一个列表,否则将返回一个错误的undef
另2出是那个循环里的条件表达式,我感觉不对劲,当然在while块中少了一个{,不知道我说的...:p

icps · 发表于 2004-2-15 02:07:04

unshift 操作的是默认数值。可以一个参数
比如 unshift (1..9);
while 属于笔误。哈。丢掉了。

KornLee · 发表于 2004-2-15 02:12:33

最初由 icps 发表
unshift 操作的是默认数值。可以一个参数
比如 unshift (1..9);
while 属于笔误。哈。丢掉了。

但是根据上下文,是要出错的~,也就是说1-9这几个元素放在哪个数组/列表的前面? 我认为这样
unshift @array,1..9;比较合理~,至于那两个循环,请解释解释,谢谢~ ;)
呵呵~,不早了,明天再说吧~~:sleep:thank

devel · 发表于 2004-3-16 21:08:45

最初由 icps 发表

@array=(1..5);

unshift @array;

unshift (6..10);

while($i=shift)

   print $i;

   }

foreach(shift){

   print;

   }

复制代码

以上的脚本有很多错误，函数的用法错误，正确的是这样：

#!/usr/bin/perl -w
#perl v5.8.0
@arrayA=(1..5);
@arrayB=(6..10);
unshift (@arrayA,@arrayB);#把@arrayB加到@arrayA里。
$count=@arrayA;#计数@arrayA.
print "$count\n";
$a=0;
while($a<$count) {
print "$arrayA[$a] " ;
$a += 1 ;
}
foreach(@arrayA){
print;
}
print "\n";

复制代码

倩儿 · 发表于 2004-3-16 21:58:35

最初由 icps 发表

@array=(1..5);

unshift @array;

unshift (6..10);

while($i=shift)

   print $i;

   }

foreach(shift){

   print;

   }

复制代码

我补充一点吧，while以及foreach这两个上下文中的shift是无意义的，假如$_以及@_之前并无赋值，那都会返回undef，循环没有开始就退出了;而且和上面的操作也不相关。
我想楼主的意思是说把unshift的对象默认为@_吧，这样应该是不行的，unshift必须要有两个参数，否则你可能会得到perl的警告如:Type of arg 1 to unshift must be array (not null operation)

		自动登录	找回密码
密码			注册

比较无聊中。发个题目。有兴趣的来看看。

回复: 比较无聊中。发个题目。有兴趣的来看看。

回复: 比较无聊中。发个题目。有兴趣的来看看。

回复: 比较无聊中。发个题目。有兴趣的来看看。