论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2012-03-02 15:57 |只看该作者 |倒序浏览

root@M4000218167 # ./commonproc.pm
please input the given name:
fred
Use of uninitialized value in concatenation (.) or string at ./commonproc.pm line 219, <STDIN> line 1.

Use of uninitialized value in concatenation (.) or string at ./commonproc.pm line 220, <STDIN> line 1.
fred
's family_name is .
root@M4000218167 # ./commonproc.pm
please input the given name:
fredflinstone
fred's family_name is flinstone.
前面输入后按“Enter”，后面是输入后按两下“Ctrl+D”，请帮忙看看有什么区别？

文库|博客

yybmsrs

小富即安

论坛徽章:: 78

2楼 [报告]

发表于 2012-03-02 17:21 |只看该作者

把那部分的代码贴出来看看

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

q496518957

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2012-03-02 17:34 |只看该作者

回复 2# yybmsrs

my %name=("fred"=> "flinstone","barney"=> "rubble","wilma"=> "flinstone");
print "please input the given name:\n";
my $given_name=<STDIN>;
my $family_name=$name{$given_name};
print "$family_name\n";
print "$given_name\'s family_name is $family_name.\n";