Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от demond

S0ulVortex, тебе просто надо сделать выход, в случае, если ответ правильный. Это можно сделать несколькими способами:
1) поставить exit если ответ правильный
2) поставить next если ответ правильный
3) в условие цикла добавить проверки правильного ответа

Че-то я не втыкну вроде все делаю правильно а он не повторяет.

Код:

#!/usr/bin/perl -w

$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;
for ($guess==$im_thinking_of) {
	if ($guess>$im_thinking_of) {
		print "perebor!\п";
} elsif ($guess < $im_thinking_of) {
	print "NEDABOR!\п";
} else {
	print "You win."; }
	exit;
}