#!/usr/bin/perl -w
@words=qw(Интернет Ответ Принтер Программа);
$guesses[0]="";
$wrong=0;
$choice=$words[rand @words];
$hangman="0-|-—<";
@letters=split(//,$choice);
@hangman=split(//,$hangman);
@blankword=(0) x scalar(@hangman);
OUTER:
while ($wrong<@hangman) {
foreach $i (0..$#letters) {
if ($blankword[$i]) {
print $blankword[$i];
} else {
print "-";
}
}
print "\n";
if ($wrong) {
print @hangman[0..$wrong-1];}
print "\n Ваш выбор: ";
$guess=<STDIN>; chomp $guess;
foreach(@guesses) {
next OUTER if ($_ eq $guess);
}
$guesses[$#guesses]=$guess;
$right=0;
for($i=0; $i<@letters; $i++) {
if ($letters[$i] eq $guess) {
$blankword[$i]=$guess;
$right=1;
}
}
$wrong++ unless($right);
if (join('', @blankword) eq $choice) {
print "Вы угадали!\n";
exit;
} }
print "$hangman\n Печально,но было загадано слово $choice\n";


По идее,-это такая игра, типа виселецы...
Но у меня никак не получается ее запустить нормально....
Я работаю в комоде и если прога зацикливается, то все начинает висеть долго и нудно... Так что помогите, пожалуйста...
Заранее всем спасибо!!!!!!

В общем-то какая-то ошибка в проге.... Она постоянно зацикливается :( А в чем ошибка не могу разобраться...