[飛鳥]

以下是perl語言寫法

PHP 語法:

#!perl 

print "\t\t\t++++猜數字遊戲++++\n\n";

my $no = int((rand time()/10000000)*0.8);
#print "$no\n";
    print "請輸入 0~100 之間的數字：";
my $up=100;
my $down=0;
while(1){
    $pp=<>;
    chomp $pp;
    if($no==$pp){
        print "\n++++++答對了！++++++\n按任何鍵結束";
        <>;
        last;
    }elsif ($no < $pp && $pp < $up){
        $up=$pp;
        print "請輸入 $down ~ $up 之間的數字：";
    }elsif ($no > $pp && $pp > $down){
        $down=$pp;
        print "請輸入 $down ~ $up 之間的數字：";
    }else{print "超出範圍!\n請輸入 $down ~ $up 之間的數字：";}
}