输入名字,打印姓

回复 收藏
已有一个人名单,要求输入名字后输出姓。
人名单如下,其中奇数行为姓,偶数行为名字:
li
xiaozi
kuang
xiaoniu
wu
dagang
jia
xiaoyong
wang
bingbing
zhang
pang

脚本如下:
  1. #! /usr/bin/perl
  2. if ( ! open TEST, "./6.1.txt") {
  3.         die $!;
  4. }
  5. while () {
  6.         chomp;
  7.         push (@a, $_);
  8. }
  9. close TEST;
  10. my %names = @a;
  11. my %names2 = reverse %names;
  12. chomp ($fi_name = );
  13. if ( exists $names2{$fi_name}) {
  14.         print "The family name of $fi_name is $names2{$fi_name}.\n";
  15. }else {
  16.         print "There is no that first name called $fi_name!\n"
  17. }
2012-11-15 15:47 举报
已邀请:

回复帖子,请先登录注册

退出全屏模式 全屏模式 回复
评分
可选评分理由: