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

icps

1. 
   
2.     @array=(1..5);
   
3.     unshift @array;
   
4.     unshift (6..10);
   
5.     while($i=shift)
   
6.       print $i;
   
7.      }
   
8. 
   
9.     foreach(shift){
   
10.        print;
    
11.      }
    

复制代码

KornLee

2.     @array=(1..5);
3.     unshift @array;  #
4.     unshift (6..10); #
5.     while($i=shift)  #
6.       print $i;
7.      }
9.     foreach(shift){ #
10.        print;
11.      }

复制代码

我感觉有4处错误~

icps

哈。说出来看看

KornLee

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

icps

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

KornLee

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

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

devel

最初由 icps 发表

1. 
   
2.     @array=(1..5);
   
3.     unshift @array;
   
4.     unshift (6..10);
   
5.     while($i=shift)
   
6.       print $i;
   
7.      }
   
8. 
   
9.     foreach(shift){
   
10.        print;
    
11.      }
    

复制代码

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

1. 
   
2. #!/usr/bin/perl -w
   
3. #perl v5.8.0
   
4. @arrayA=(1..5);
   
5. @arrayB=(6..10);
   
6. unshift (@arrayA,@arrayB);#把@arrayB加到@arrayA里。
   
7. $count=@arrayA;#计数@arrayA.
   
8. print "$count\n";
   
9. $a=0;
   
10. while($a<$count) {
    
11.     print "$arrayA[$a]  " ;
    
12.     $a += 1 ;
    
13. }
    
14. foreach(@arrayA){
    
15.       print;
    
16. }
    
17. print "\n";
    

复制代码

倩儿

最初由 icps 发表

1. 
   
2.     @array=(1..5);
   
3.     unshift @array;
   
4.     unshift (6..10);
   
5.     while($i=shift)
   
6.       print $i;
   
7.      }
   
8. 
   
9.     foreach(shift){
   
10.        print;
    
11.      }
    

复制代码

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