免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2914 | 回复: 5

文本处理,perl实现 [复制链接]

论坛徽章:
0
发表于 2011-03-19 20:01 |显示全部楼层
QQ号            手机号
11235334: 13443253456
11235335: 13443253457
11235336: 13443253458
11235333: 13443253458
11235336: 13443253459
11235334: 13443253452

处理效果为:

[Q号] : 同一Q号的手机号个数: 手机号

如  [11235334] : 2 : 13443253456 13443253452

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2011-03-19 21:05 |显示全部楼层
本帖最后由 zhlong8 于 2011-03-19 21:11 编辑

楼主在出题难道? QQ 号为 key 的 hash 保存就可以了啊,对应的 value 为 手机号的 arrayref
[手机号1,手机号2,……]

while (<>) {
    chomp;
    my($qq, $phone) = split /: /;
    push @{$hash{$qq}}, $phone;
}

while (my($k, $v) = each %hash) {
    print "[$k] : ", scalar @$v, " : @$v\n"
}

论坛徽章:
0
发表于 2011-03-19 21:16 |显示全部楼层
回复 2# zhlong8


    没有啊,其实我是想得到 perl对这种问题 的处理思路  , 以前都 shell 处理,  换了 perl 感觉没思路  , 多谢哈

论坛徽章:
0
发表于 2011-03-20 00:00 |显示全部楼层
不是这个料,只能看热闹

论坛徽章:
0
发表于 2011-04-19 22:23 |显示全部楼层
perl里面的hash确实很强大,得好好研究下hash了

论坛徽章:
0
发表于 2011-04-20 14:59 |显示全部楼层
学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP