Question

perl编写中的一个问题，求高手回答

我想问一下为什么当$x=0时，在dos窗口无法运行，这原本是编写一个随机产生的数字来猜大小，但老师说我的这个程序当$x=0时有问题，我试了一下，的确没法操作，但我不知道为什么，请问出了什么问题？
求解答

Answer 1

$x初始化为0  $y没有初始化，也为0,进不了循环

追问

但是$y怎么去初始化呢，$y是需要用户输入的啊，

追答

$x = 0;
while(1){
    $y =<stdin>;
    $sum++;
if($y>$x){print "big";}
elsif($y<x){print "small";}
    else{print "$y is $x   input $sum";last;}

}

随便改了下，去试试

追问

while内部的条件是可以不需要的吗，我看你里面只写了一个1，那这样怎么循环呢，我我去试试，原本$x=int(rand(100))的，但我老师说，当其为零的时候有问题

追答

你不是有老师嘛
1就是True，当作1==1看好了