#!/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;
$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;
}
}
exit;
}
}
如果你的系统是windows系统,请安装ActiveState,把上面的代码保存在.pl文件中,从cmd中进入到文件目录,运行perl 文件名.pl 看看。
ActiveState download url:
http://www.activestate.com/activeperl/downloads
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。