文本处理,perl实现

BangBull

QQ号            手机号
11235334: 13443253456
11235335: 13443253457
11235336: 13443253458
11235333: 13443253458
11235336: 13443253459
11235334: 13443253452

处理效果为:

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

如  [11235334] : 2 : 13443253456 13443253452

zhlong8

楼主在出题难道？ 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"
}

BangBull

回复 2# zhlong8


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

b86873564

不是这个料，只能看热闹

x252602848

perl里面的hash确实很强大，得好好研究下hash了

眼镜EE

学习了