求解

jnulvs

#!/usr/bin/perl
use warnings;
@array = qw{24 33 65 42 58 24 87};
print "@array\n";
$input = <>;
if ($input le 6){  
        print "$array[$input]";
}else{
        print "you's input too large";

运行之后，为什么输入6 会提示else之后的语句呢，
le 不是小于等于么
再者输入12之后，会提示
Use of uninitialized value within @array in string at D:\Code\test1.pl line 7, <
> line 1.

不明白为何，求解

yz86yz

在我的机器上测试正常

ly5066113

1、 应该用 chomp 去除回车符
2、 数值比较应该用 <=
3、 使用未定义的值进行比较抱警告是正常的

jnulvs

汗，忘了
在字符的时候才用le   不用回复了