perl 流程控制范例

#!/user/bin/perl -w

#guess number

while (1) {
    $think_number = int(rand 10);
    print "please input a number:/n";
    $guess = <STDIN>;
    chomp $guess;
    $guesstime = 1;
    
    while (1) {
        if ($guess > $think_number) {
            print "guess number too big!/n";
            print "please input again:";
            $guess = <STDIN>;
            chomp $guess;
            $guesstime++;
        }
        elsif ($guess < $think_number) {
            print "guess number too small!/n";
            print "please input again:";
            $guess = <STDIN>;
            chomp $guess;
            $guesstime++;
        }
        else {
            if ($guesstime > 3) {
                print "you are stupid, used $guesstime times to guess!/n";
            }
            else {
                print "you are clever , used $guesstime times to guess!/n";
            }
            last;
        }
    }
    
    print "Try again please enter 1 or Go exit please enter 0?/n";
    
    $IsTryAgain = <STDIN>;
    chomp $IsTryAgain;

    if (not $IsTryAgain) {
        exit;
    }
}

 

如果你的系统是windows系统，请安装ActiveState，把上面的代码保存在.pl文件中，从cmd中进入到文件目录，运行perl  文件名.pl 看看。

ActiveState download url: http://www.activestate.com/activeperl/downloads