perl中<STDIN>与哈希的问题

发布网友 发布时间：2022-04-24 02:47

我来回答

共4个回答

热心网友 时间：2023-10-22 19:31

因为你的输入中包含了一个回车符。
改成这样
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}";

热心网友 时间：2023-10-22 19:32

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

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

这样就可以了

热心网友 时间：2023-10-22 19:32

你输入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

热心网友 时间：2023-10-22 19:33

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

热心网友 时间：2023-10-22 19:31

因为你的输入中包含了一个回车符。
改成这样
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}";

热心网友 时间：2023-10-22 19:32

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

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

这样就可以了

热心网友 时间：2023-10-22 19:32

你输入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

热心网友 时间：2023-10-22 19:33

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

热心网友 时间：2023-10-22 19:31

因为你的输入中包含了一个回车符。
改成这样
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}";

热心网友 时间：2023-10-22 19:32

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

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

这样就可以了

热心网友 时间：2023-10-22 19:32

你输入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

热心网友 时间：2023-10-22 19:33

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

热心网友 时间：2023-10-22 19:31

因为你的输入中包含了一个回车符。
改成这样
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}";

热心网友 时间：2023-10-22 19:32

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

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

这样就可以了

热心网友 时间：2023-10-22 19:32

你输入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

热心网友 时间：2023-10-22 19:33

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