请帮看错在哪里？谢谢！

dragon-h

#!/usr/bin/perl
@words=qw( internet answers printer progam);
@guesses=();
$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 Your Guess:";
       $guess=<STDIN>; chomp $guess;
       foreach(@guesses) {
                 next OUTER if ($_ eq $guess);
     }
       $right=0;
        for ($i=0; $i<letters; $i++) {
               if ($letters[$i] eq $guess) {
                    $blankword[$i]=$guess;
                    $right=1;
       }
  }
         $wrong++ unless (not $right);
if (join ('',@blankword) eq $choice) {
         print "you got it right !\n";
           exit;
}
}
print "$hangman \nSorry, the word was $choice.\n";

兰花仙子

原帖由 dragon-h 于 2006-2-6 18:36 发表
#!/usr/bin/perl
@words=qw( internet answers printer progam);
@guesses=();
$wrong=0;
$choice=$words[rand @words];
$hangman="0-|--";
@letters=split(//, $choice);
@hangman=split(//,  ...

hello,

when you start a perl program,you should always write these 2 statements at the begin:

use strict;
use warnings;

then you could find out the code's problem,and you can debug against it.