我写的这三句代码有点问题，请各位帮忙看看！

54red

my $dis_new = max @tmp;
       foreach(@tmp){
               if($_==5){$dis_new=5;last;}
               else if($_==4){$dis_new=4;}
         }


我是痛苦的分割线--------------------------------
@tmp [255,0,1,5,6,4]  
目的很简单：如果数组里面有5，变量就是5，除此以外有4，变量就是4，要是都没有，就是数组里最大的值，我错在哪里呢？
我编的也比较笨，有没有更好的编程思路，求共享！谢谢！

54red

我自己回吧！首先犯了低级错误 esle if  应该写成 eslif,面壁

substr函数

回复 2# 54red

我思路
期待简便的方法

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my @TMP = ( 255, 0, 1, 5, 6, 4 );
   
4. my $MAX = SUBSTR(@TMP);
   
5. say $MAX;
   
6. 
   
7. sub SUBSTR {
   
8.     my $MAX1 = 0;
   
9.     my $MAX2 = $_[0];
   
10. 
    
11.     for my $VALUE (@_) {
    
12.         if ( $VALUE == 5 ) { return 5 }
    
13.         if ( $VALUE == 4 ) { $MAX1 = 4 }
    
14.         if ( $VALUE > $MAX2 ) { $MAX2 = $VALUE }
    
15.     }
    
16. 
    
17.     if   ($MAX1) { return $MAX1 }
    
18.     else         { return $MAX2 }
    
19. }
    
20. 
    

复制代码

MMMIX

回复 3# substr函数


    楼主的代码问题就是他自己发现的那个，elsif 被写成了 else if

54red

谢谢你帮我写了完整的程序，我的问题就是出在 else if，你写的程序比我写的调理清楚多了，  回复 3# substr函数


   

substr函数

LZ
[评分] + 10  我

substr函数

回复 5# 54red


LZ 那个含泪评分
表情超好笑，(ㄒoㄒ)

LZ是否说不好？

54red

么有，么有，写的比我强多了！只是可怜的我的分所剩无几！回复 7# substr函数


   

104359176

use strict;

就会发现问题了

MMMIX

回复 9# 104359176


    楼主的情况用不用 strict 都一样，他的代码根本就没执行过（perl 版本太低？），else if 直接就是语法错误。