print "请输入哈希的键值，输入结束后将统计每个哈希键输入的次数:\n";
while($line=<STDIN>){
chomp($line);
if(exists $b{$line}){
$b{$line}++;
}else{
$b{$line}=1;
}
}
foreach (sort keys %b){
$value=$b{$_};
print "$_ => $value\n";
}
常见问题
相关文章
猜你喜欢
- 将perl脚本变成乱糟糟的一团 2015-12-14
- MySQL的异步调用模块 2015-12-14
- perl发送邮件，简单的代码 2015-12-14
- perl操作数据库 2015-12-14
- 输入输出 2015-12-14
- Perl CGI Shell 2015-12-14
- mod_security日志信息提取工具 – modgrep 2015-12-14
- 动态生成pxelinux菜单文件及kickstart安装脚本 2015-12-14
- irssi 显IP插件 2015-12-14
- Perl 打开 word 文档并修改内容 2015-12-14
