perl 编程设计英雄贴之二（当日揭帖，另外开贴酬谢回复最快的五位英雄）

[bugfree]

条件：
＝＝＝＝
1. 给定单列表email,其中存储email地址(如[e-mail])，每天都有新的email存入这个表中
addr varchar(255);

2. 下表res用来存储结果：
create table res
day date, //日期
domain varchar(64), //域名如company.com
count int //计数器统计域名中的电子邮件数，如101代表company.com的email有101个
);


要求
＝＝＝＝＝＝
写一个perl的脚本, 可以实现如下功能：
1. 遍历表email, 统计有相同域名的电子邮件数（以下简称为“同域名邮件数”）
2. 将“同域名邮件数”大于或等于100的域名和个数写入表res中
3. 遍历结果表res， 报告两个月中“同域名邮件数”最多的前50域名和个数