Question

perl中<STDIN>与哈希的问题

#!/usr/bin/perl
my %name=("fred"=>"flintstone",
"barney"=>"rubble",
"wilma"=>"flintstone",
);
$given_name=<STDIN>;
print"$name{$given_name}";

为什么运行的时候我输入key的值都没有value输出呢？

Answer 1

因为你的输入中包含了一个回车符。
改成这样
my %name=("fred"=>"flintstone",
"barney"=>"rubble",
"wilma"=>"flintstone",
);
chomp ($given_name=<STDIN>);#这里去掉回车符
print"$name{$given_name}";

或者改你的hash表
my %name=("fred\n"=>"flintstone",#这里包含回车符
"barney\n"=>"rubble",
"wilma\n"=>"flintstone",
);
$given_name=<STDIN>;
print"$name{$given_name}";

Answer 2

因为输入的单词多了一个换行字符，已经和你原来的key不一样了，要用chomp把换行符去掉。

#!/usr/bin/perl
my %name=("fred"=>"flintstone",
"barney"=>"rubble",
"wilma"=>"flintstone",
);
$given_name=<STDIN>;
chomp $given_name;
print"$name{$given_name}";

这样就可以了

Answer 3

你输入key的时候结尾有个换行即 "\n"
需要吧那个\n去掉，用chomp().
修改后应该是下面这个样子。

#!/usr/bin/perl
my %name=("fred"=>"flintstone",
"barney"=>"rubble",
"wilma"=>"flintstone",
);
$given_name=<STDIN>;
chomp($given_name);
print"$name{$given_name}\n";

输出
bsd2# perl test.pl
fred
flintstone

Answer 4

把倒数第二句改成：
chomp($given_name=<STDIN>);
就能获得答案了
不加chomp的话，会在你输入后面加上'\n'，当然获得不了值了