Perl 程式設計/簡單示例 2

高低：一個用 perl 編寫的簡單遊戲，要求你猜測 1 到 100 之間的數字，並告訴你你的猜測是高了還是低了。

use warnings;
use strict;

$| = 1;

print "Enter number of games to play: ";
chomp(my $Num_Games = <STDIN>);

my $Num_Guesses = 0;
for my $gameno (1 .. $Num_Games) {
	my $number = 1 + int rand 100;
	
	my $guess;
	do {
		print "Enter guess from 1 to 100: ";
		chomp($guess = <STDIN>);
		++$Num_Guesses;
		
		if ($guess < $number) {
			print "Higher!\n";
		} elsif ($guess > $number) {
			print "Lower!\n";
		}
	} until $guess == $number;
	
	print "Correct!\nAverage guesses per game: ",
	$Num_Guesses / $gameno, "\n\n";
}

print "Games played: $Num_Games\n";