一个简单程序惹的麻烦…

bongon-miffy

嗯，是这样的：
        刚看小骆驼书，一下是里面的程序：
#!/usr/bin/perl
print "What is your name?\n";
$name=<STDIN>;   # 从终端得到输入信息，如你输入miffy并摁下回车则$name中为miffy\n
chop($name);      #去掉变量中的换行符
@secretword=("aaaaaa","bbbbbb","cccccc");
if ($name eq "miffy")
{
        print "Hello,$name!You are very good!\n";
}
else
{
        print "Hello,$name!\n";
        print "What is the secret word?\n";
        $gusee=<STDIN>;
        printf "the first is $secretword[$i]\n";
        chop($guess);
        $i=0;
        $correct="maybe";
        while ($correct eq "maybe")
        {
                if ($secretword[$i] eq $guess)
                {
                        $corretc="yes";
                }
                elsif($i<3)
                {
                        $i=$i+1;
                }
                else
                {
                        print "Wrong,try again!";
                        $guess=<STDIN>;
                        chop($guess);
                        $i=0;
                }
        }
}
       
整个程序是这样的，程序先对姓名进行提问，若是miffy，则程序结束，否则，接着提问密码，知道输入正确的 密码为止，程序结束；
我遇到的问题是这样的：输入密码后程序就不懂了

哎，有谁能帮我调试一下，小弟不胜感激……

zhlong8

小骆驼上没教  use strict; use warnings; ？

bernana

回复 1# bongon-miffy


    这你自己写的吧..用
use strict;
use warnings;

就知道问题在哪了.

bongon-miffy

回复 3# bernana


    嗯，多谢指点…