一个猜数perl脚本

huhuegg

呵呵，刚开始学PERL
[PHP]
#!/usr/bin/perl -w
$answer=50;
print "input(1-99):\n";
$a=<STDIN>;
chomp $a;
$i=1;
while ($i=100) {
    last if ($a==$answer);
    if ($a>$answer) {
      print "your input is too big,please input again\n";
    } else {
      print "your input is too small,please input again\n";
    }
      $a=<STDIN>;
      chomp $a;
}
print "your input is $a, answer is $answer\n";
[/PHP]

yinxiaofeng

我做了一个用时统计：
[PHP]
#!/usr/bin/perl5.8.0 -w
print "lease type a number(1-1000):";
$ram    = int(1 + rand 1000);

$start_time = time;
while (1) {
        $input = <STDIN>;
        chomp $input;

        if ($input > $ram) {
                print "Too large, try again:";
        } elsif ($input < $ram) {
                print "Too small, try again:";
        } elsif ($input == $ram) {
                print "Right!\n";
                last;
        }
}
$end_time = time;
print "Time is used:", $end_time - $start_time, "s\n";
[/PHP]

huabeirong

KornLee例子中的“lt”、“eq”等都应该改成“<","=="等，否则运算结果有问题。

arcong

"lt" 和 "eq" 都是用于对字符串进行比较的吧?

问一个低级点的问题...
用 while ($i=100) {
     }
是不是$i 每次循环结束都要+1 ?

谢谢..