《Perl语言入门》第四版习题(6)
来源:互联网 发布:三星在线升级软件 编辑:程序博客网 时间:2024/05/18 00:42
1.[7]写一个程序,提示用户输入given name(名),并给出其对应的family name(姓)。使用你知道的人名,或者表6-1
(如果你在计算机上花了太多时间,以致什么人都不认识):
表6-1 样本数据
输入输出
fred flintstone
barney rubble
wilma flintstone
2.[15]写一个程序,读入一串单词(一个单词一行)◆,输出每一个单词出现的次数。(提示:如果某个作为数字使用值是
undefined 的,会自动将它转换为0。)如果输入单词为fred, barney, dino, wilma, fred(在不同行中),则输出的fred 将为
3。作为额外的练习,可以将输出的单词按照ASCII 排序。
1、#!/usr/bin/perl -w
use strict;
my %name=(
"fred" => "flintstone",
"barney"=>"rubble",
"wilma"=>"flintstone",
);
print "Please enter given name:";
chomp ( my $given_name=<STDIN>);
if (exists $name{$given_name}){
print "The $given_name/'s family name is: $name{$given_name}./n";
}
2-3、#!/usr/bin/perl -w
use strict;
my %hash;
while(<>){
chomp;
$hash{$_}++;
}
#print %hash;
foreach (sort keys %hash){
print "$_ => $hash{$_}./n";
}
- 《Perl语言入门》第四版习题(6)
- 《Perl语言入门》第四版习题(5)
- 《Perl语言入门》第四版习题(4)
- 《Perl语言入门》第四版习题(3)
- 《Perl语言入门》第四版习题(2)
- 《Perl语言入门》第四版习题(7)
- 《Perl语言入门》第四版习题(8)
- 《Perl语言入门》第四版习题(10)
- 《Perl语言入门》第四版习题(9)
- 《Perl语言入门》第四版习题(11)
- 《Perl语言入门》第四版习题(12)
- 《Perl语言入门》第四版习题(14)
- 《Perl语言入门》第四版习题(13)
- perl语言入门第四版第5章习题
- Perl 语言入门课后习题
- PERL语言入门:第四章:子程序(函数):习题2:求1-100总和
- 《Perl语言入门》第四章 子程序
- PERL语言入门:第四章:子程序(函数)
- 在Eclipse中使用Remote Debug对Tomcat进行调试(免插件)
- const int *p,const * int p,int const *p
- 打印Gridview
- 可重入函数 和 不可重入函数
- eclipse3.4插件安装
- 《Perl语言入门》第四版习题(6)
- 手机QQ2009聊天记录分析及提取
- My SQL Toolkit
- 常用术语缩写
- Leading Chinese Wholesaler
- Windows2000/XP启动过程详解
- 开始→运行→输入的命令集锦
- mysql默认时间设置
- 基于socket的发送接收文本