初学者做题遇到小问题，请帮忙看看

kezhang

“ #!/usr/local/bin/perl
use strict;

my %name;
my %family_name;
my $family;
my $give_name;

%name= ( "fred"=>"twstone",
        "barney"=>"rubble",
        "wilma"=>"fintstone");
print "Please tell me the Faimily name  fred, barney or wilma ";
$give_name=<STDIN>;
&Family_out();


sub Family_out()
{
foreach $family (keys(%name))
    {print "$family";
    print "\n$give_name";
        if($family eq $give_name)
        {
            print "\n$give_name family name is $name{$family}";
        }
    }
}

”
这个是Hash那章的一个测试，要求根据give name 可以打印出family name.我遇到的问题是为什么
1，“$family eq $give_name” 成立不了！ 从打印出来看$family eq $give_name 绝对是可以有相同的。是什么问题，字符？还是格式？
2， 为什么在我输入字符后才会出现打印“Please tell me the Faimily name  fred, barney or wilma”， 为什么不按照行的顺序执行。也就是先打印出该行，然后让我输入。

小公猫

网上搜索了没有？

kezhang

上网查过，资质太浅，还是没有找到答案。
试过==,  这个不对，所有的$family 都和$give_name相等。
只应该用eq，因为这个是针对字符，但是为什么用变量就不对呢？
请楼上高人帮忙指点下

cobrawgl

chomp ($give_name=<STDIN>);

kezhang

谢谢！！！
看书什么都不是啊，还是要做练习啊！
再谢！

问题2， 为什么不先print ,输入字符后才会print ? (print "lease tell me the Faimily name  fred, barney or wilma "

cobrawgl

原帖由 kezhang 于 2009-3-21 22:54 发表
看书什么都不是啊，还是要做练习啊！

问题2， 为什么不先print ,输入字符后才会print ? (print "lease tell me the Faimily name  fred, barney or wilma "

1. 其实是你自己看书不仔细

2。你用的是 ide 吧，你可以：

a： 到控制台下运行，比如 cmd 下面
b： 在前面加上 $| = 1;

churchmice

还是buffer的问题阿
可以去看看apue,里面讲了buffered I/O, unbuffered I/O