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