怎么用变量表示一个数组中挨着的两个元素

赛萌

都是牛人！

赛萌

回复 7# xiaoxingan99


    你这个循环写的好神奇

xiaoxingan99

回复 12# 赛萌


    写代码方面完全是半瓶子水，只会用最笨的方法

815138698

回复 13# xiaoxingan99


  对于新手来说 大牛的代码可读性一般哈~   最笨的方法不代表不是好方法

MMMIX

815138698 发表于 2015-08-25 14:44
回复 13# xiaoxingan99

对于新手来说 大牛的代码可读性一般哈~

不容易懂 != 可读性差.

815138698

回复 15# MMMIX


  哈哈   大牛们别见怪哈   
新手确实很不容易读懂   得吭哧吭哧的研究很久   学习的道路还很长

清泉一边

感觉这个写法是不严谨的，例如@w=qw(1 3 6 8 14 15 21 23 29 89);  就不能正确输出结果了。回复 7# xiaoxingan99


   

赛萌

回复 17# 清泉一边


    我一开始也觉得不严谨，所以认真的看了好半天，最后觉得是正确的呢，

清泉一边

你这样验证一下，是不对的：

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. my @w=qw(1 3 6 8 14 15 21 23 29 89);
   
4. for (my $i=0;$i<$#w;$i++)
   
5. {
   
6.         if ($w[$i+1]-$w[$i]<=5)
   
7.         {print "$w[$i] ";}
   
8.         else
   
9.         {print "$w[$i]\n";}
   
10. }
    
11. print "$w[-1]";
    
12. 
    
13. 
    
14. 结果：
    
15. 
    
16. 
    
17. 1 3 6 8
    
18. 14 15
    
19. 21 23
    
20. 29
    
21. 89

复制代码

[/code]回复 18# 赛萌


   

xiaoxingan99

回复 19# 清泉一边


    要的不就是这样的结果么？大于5换行么