已有一个人名单,要求输入名字后输出姓。
人名单如下,其中奇数行为姓,偶数行为名字:
li
xiaozi
kuang
xiaoniu
wu
dagang
jia
xiaoyong
wang
bingbing
zhang
pang
脚本如下:
人名单如下,其中奇数行为姓,偶数行为名字:
li
xiaozi
kuang
xiaoniu
wu
dagang
jia
xiaoyong
wang
bingbing
zhang
pang
脚本如下:
- #! /usr/bin/perl
- if ( ! open TEST, "./6.1.txt") {
- die $!;
- }
- while () {
- chomp;
- push (@a, $_);
- }
- close TEST;
- my %names = @a;
- my %names2 = reverse %names;
- chomp ($fi_name = );
- if ( exists $names2{$fi_name}) {
- print "The family name of $fi_name is $names2{$fi_name}.\n";
- }else {
- print "There is no that first name called $fi_name!\n"
- }
编辑回复