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

Цитата:

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

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

Код:

#!/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;
}

Он делает так, как ты ему говоришь! :-) exit должен быть в последнем else!
Вообще, от себя, посоветую использовать следующий стиль форматирования кода (ну или посчитать perlstyle и следовать тем советам!):

Код:

#!/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;
}

Это позволить избегать таких ошибок!
Код должен выглядеть так:

Код:

#!/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;
       }
	
}

Разницу видишь? :-)