Question

我写了一个perl程序,现在我想让程序一直循环,直到我猜出那个数字为止.

#!/usr/bin/perl -w
$a=int(rand 10);
$guess=<STDIN>;
if($guess>$a){
print"high";}
if($guess<@a){print"low";}
else{print"right";}

Answer 1

#!/usr/bin/perl
use strict;
use warnings;

my $a = int(rand 10);
print "$a\n";
LABLE1:while(1)
{
my $guess = <STDIN>;
if($guess > $a)
{
print "High\n";
next LABLE1;
}
elsif($guess < $a)
{
print"Low\n";
next LABLE1;
}
else
{
print"Right\n";
last;
}
}

------------------------------
C:\Users\Hunter\Documents\Perl>perl 18.pl
3
2
Low
5
High
3
Right

C:\Users\Hunter\Documents\Perl>
呵呵，我觉得没问题。加了一句打印，兄弟可以讲打印去掉#print "$a\n";程序中主要使用了next和last语句。

Answer 2

#!/usr/bin/perl

use strict;
use warnings;

my $a=int(rand 10);
my $guess ;
IN: while ($guess=<STDIN>) {
chomp $guess;
if ($guess>$a) {
print"high";
redo IN;
} elsif($guess<$a) {
print"low";
redo IN;
} else {
print"right";
}
}